用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
相关问答：
我要导入导出数据库文件，在到处的时候使用另存为对话框，具体代码是如何实现的？我直接用commondialog1.showsave之后点另存为没有响应，是不是要添加什么代码？急！
另存为什么格式的文件你需要告诉大家,写到不同� ......
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
保存出的Excel数据文件，想在程序中就转化成数值类型
能够在打开Excel文件后，
能够直接利用数据画图，而不需要再次转化数据类型
程序中的数据是存放在二维数组里的，然后再保存在Excel中
请教大侠们，� ......
