用VB创建了一个空Access表，不能添加记录

用ADO创建了一个空Access表，并添加了多个字段名。
但现在问题是，不能向空表中添加记录。
每次添加都会出现“BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录”

想完成的功能是，将EXCEL表中的数据读到recordset中，根据recordset创建Access表。
现在表创建了，字段也有了，但就是不能添加记录。

小弟初学者，请大侠指教！

---

向空表中添加记录 的代码贴出来看看，指出出错在哪一行

---

数据库用cnn已经打开
主要代码：
    Dim cnnE  As New ADODB.Connection
    Dim rsE As New ADODB.Recordset
    Dim sqlE As String
    Dim i As Integer, j As Integer

    '读取Excel表中的数据到rsE数据集
    cnnE.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Text1.Text & ";Extended Properties='Excel 8.0;HDR=Yes'"
 
    rsE.Open "select * from [" & excel表 & "$]", cnnE, 3, 3

    ’根据rsE 创建表，并向表中添加字段
    Call cnn.Execute("CREATE TABLE " & 创建的表)
    For j = 0 To rsE.Fields.Count - 1
        sqlE = "ALTER TABLE " & 创建的表 & " ADD _
              [" & rsE.Fields(j).Name & "] " &a