Public conn As New ADODB.Connection ' 标记连接对象

Private Sub Form_Load()

Command1.Caption = "添加"
Text1.Text = ""

End Sub
Private Sub Command1_Click()
Dim connectionstring As String
 Adodc1.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\test.mdb;Persist Security Info=False" '设置数据库路径
= adCmdText '设置记录源
Adodc1.RecordSource = "select * from test" '连接数据库的message表文件
Text1.Enabled = False
 If Command1.Caption = "添加" Then
     Command1.Caption = "保存"
     Text1.Enabled = True
     Text1.SetFocus
        Text1.Text = ""
        Exit Sub
        End If
        If Command1.Caption = "保存" Then

  Adodc1.Recordset.AddNew '添加新纪录
Adodc1.Recordset("姓名").Value = Text1.Text
Adodc1.Recordset.Update  '保存
Adodc1.Refresh '刷新
MsgBox "客户资料已保存至数据库！", vbYesNo, "客户资料输入"
If s = vbYes Then
End If
Command1.Caption = "添加"
Text1.Text = ""
Exit Sub
End If
End Sub

本数据库有两个字段，ID自动编号，TEXT1是房间编号，我添加了一个DATAGRID控件，能显示数据，点保存不能保存到数据库，只是改写了房间编号字段,并没有添加TEXT1的值到数据库中，请问怎样在点击添加时，建立空数据，在点保存时，将TEXT1的值保存到数据库，不是更新，或者让VB打开ACCSEE时，已定位在空的数据上，请问怎么解决。

代码应该是这样的：
Public conn As New ADODB.Connection ' 标记连接对象

Private Sub Form_Load()

Command1.Caption = "添加"
Text1.Text = ""

End Sub
Private Sub Command1_Click()
Dim connectionstring As String
Adodc1.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\test.mdb;Persist Security Info=False" '设置数据库路径
= adCmdText '设置记录源
Adodc1.RecordSource = "select * from test" '连接数据库的message表文件
Text1.Enabled = False
If Command1.Caption = "添加" Then
    Adodc1.Recordset.AddNew '添加新纪录
Adodc1.Recordset("姓名").Value = Text1.Text
     Command1.Caption = "保存"
     Text1.Enabled = True
     Text1.SetFocus
        Text1.Text = ""
        Exit Sub
        End If
        If Command1.Caption = "保存" Then
  Adodc1.Recordset.Update  '保存
Adodc1.Refresh '刷新
MsgBox "客户资料已保存至数据库！", vbYesNo, "客户资料输入"
If s = vbYes Then
End If
Command1.Caption = "添加"
Text1.Text = ""
Exit Sub
End If
End Sub