请教朋友们关于DATAGRID写新表时候出现“当前行不可用”

Question

是这样的，我用VB创建多个新表，然后在VB里面取出其中一张新表进行写数据，但是写完一个数据格之后，如果按“ENTER”或者鼠标点击另外一个数据格的时候，就会提示“当前行不可用”，把前面数据格里面的数据也都删除了，请问这是什么原因呢？
我把我创建新表和读出表的程序贴出来，各位朋友帮忙看看，已经忙了我几天了，还得不到解决，谢谢了
Private Sub Command1_Click() '按钮Dim con As Connection
Dim name As String
name = Text1.Text
Dim a As String
a = Text4.Text
If Text1.Text = "" Then
MsgBox "请输入需建立的表名！", 48, "警告"
Exit Sub
ElseIf Text1.Text <> "" ThenSet con = New Connection
con.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;data source=C:\Documents and Settings\Administrator\桌面\下午\db.mdb;" '数据库改为你自己的，如果是sql字符串不同要
con.Open '打开数据库
'name = "create table " & name & " (a varchar(50) primary key, b int,C CHAR,AGE INTEGER)"
'Con.Execute (name)
con.Execute ("create table " & name & "(" & a & " string, 颜色 string,码数 string,价格 string,卖出量 string)") '创建一张表名为tb的表
If con.State = adStateOpen Then con.Close '关闭数据库连接
Set con = Nothing
 Text1.Text = ""
End If
End Sub
Private Sub Command1_Click()
Dim con As Connection
Dim name2 As String
name2 = Text1.Text
If Text1.Text = "" Then
MsgBox "请输入需导出表的表名！", 48, "警告"
Exit Sub
ElseIf Text1.Text <> "" Then
name2 = Text1.Text
Set con = New Connection
datPrimaryRS.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;data source=C:\Documents and Settings\Administrator\桌面\下午\db.mdb;"
datPrimaryRS.RecordSource = "select * from  " & name2 & ""
datPrimaryRS.Refresh
grdDataGrid.Refresh
Text1.Text = ""
End If
End Sub谢谢大家