用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
相关问答：
怎么点击form2上的按钮 可以结束form1上正在进行的循环
form1里面添加一个变量：
Public bEnd As Boolean
循环代码添加：
bEnd = False
Do
...
If ......
VB中callbacke function 如下：
Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim slength As Long, WndTitle As String ' title bar text length an ......
请教一下：我用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中
请教大侠们，� ......
C# code:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
......
