以下仅供参考
Public Con As New OleDbConnection
Public Cmd As New OleDbCommand
Public Da As New OleDbDataAdapter
Con.ConnectionString = "Provider = Microsoft.JET.OLEDB.4.0;Data Source=通讯录.mdb"
Cmd.Connection = Con
Da.SelectCommand = Cmd
Con.Open()
= "Insert Into 通讯录(姓名,电话号码) Values('张三','12345678')"
Cmd.ExecuteNonQuery()
Con.Close()