在文本框中输入记录，如何实现在DaTaGrid中添加这条记录

给你代码参考,您就可以将文本框中输入的记录显示在Datagrid中了。

Private Sub Form_Load()
Adodc1.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;Persist security info= False; Data source=" & App.Path & "\数据库名称.mdb"

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 表单名称"
Adodc1.Refresh

'设置DataGrid显示资料表里的资料。
Set DataGrid1.DataSource =Adodc1
DataGrid1.Refresh
End Sub

'将文本框中输入的记录存入数据库。
Private Sub cmdsave_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("栏位名1").Value=Text1.Text
Adodc1.Recordset.Fields("栏位名2").Value=Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox "Successfully Save Data", vbInformation + vbOKOnly
End Sub