你一个示例,这个是用户登录系统'准备工作: 数据库D:\Mydb.mdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录'点工程->引用选中Microsoft Activex Data Objects 2.1 Library'控件:添加一个文本框,一个命令按钮Private Sub Command1_Click()Dim s As StringDim Conn As New ADODB.ConnectionDim Rs As New ADODB.RecordsetConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb" '请将数据库名及路径换成你的实际数据库名及路径Dim UserName As StringDim Password As Strings = Text1.TextIf s = "1" Or s = "2" ThenUserName = InputBox("请输入用户名")Password = InputBox("请输入用户密码")sql = "Select * From [UserInfo] where User='" & UserName & "'"'UserInfo请换成你的实际数据表名Rs.Open sql, Conn, 1, 3If Rs.EOF ThenMsgBox "没有找到此用户"ElseIf Rs("Password") = Password ThenIf s = "1" ThenMsgBox "123"ElseIf s = "2" ThenMsgBox "456"End IfElseMsgBox "密码错误"End IfEnd IfEnd IfEnd Sub上面的例子实现了查询如果是要添加,删除,更新等操作,只要编写相应的SQL语句,再用Conn.Execute SQL 就可以了,如:添加的:SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"Conn.Execute SQL '执行后,就添加了一条记录删除:SQL="Delete From [UserInfo] Where User='aaaa'"Conn.Execute SQL '删除用户名为aaaa的用户记录更新:SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'" Conn.Execute SQL '执行后,修改用户aaaa的密码为abcdefg以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了动态创建数据库引用microsoft DAP 3.6 Object LibraryDim myDB As DAO.DatabaseSet myDB = CreateDatabase(App.Path + "\111.mdb", dbLangGeneral) '如果不存在数据库Set myDB = OpenDatabase(App.Path + "\111.mdb") '如果存在数据库Dim str_SQL As Stringstr_SQL = "Create Table NewTable1(Field1 Text(10),Field2 Short)"myDB.Execute str_SQLstr_SQL = "Create Table NewTable2(Field1 Text(10),Field2 Short)"myDB.Execute str_SQLmyDB.Close向已经建好的数据库中添加记录建立数据库a，表名字b,字段c，文本格式,在窗体上画一command ,画一个文本框，这个代码就是将文本内容写入数据库要先引用microsoft activeX data object 2.5 library代码如下：Private Sub Command1_Click()Dim cnDk As New ADODB.ConnectionDim strDk As StringDim rDk As New ADODB.RecordsetDim sql As StringstrDk = "DBQ=" & App.Path & "\a.mdb;Driver=;"cnDk.Open strDksql = "insert into b (c) values ('" & text1.text& "')"cnDk.Execute sqlcnDk.CloseSet cnDk = NothingEnd Sub在数据库中添加多条记录只要可以进行输入文本的都可以改一下这些吧，你单击一次就提示输入一次，输完了自动保存改后Data1.Recordset.AddNewData1.Recordset.Fields("username") = trim(inputbox("请输入名字"))Data1.Recordset("password") =val(trim(inputbox("请输入电话")))Data1.UpdateRecord ——————————————————————————————Data1.Recordset.AddNewData1.Recordset.Fields("username") = "张三|"Data1.Recordset("password") = "fsdfsd"Data1.UpdateRecordData1.Recordset.AddNewData1.Recordset.Fields("username") = "李四|"Data1.Recordset("password") = "fsdf432d"Data1.UpdateRecordData1.Recordset.AddNewData1.Recordset.Fields("username") = "王五|"Data1.Recordset("password") = "f42342d"Data1.UpdateRecordMsgBox "adad"=========================================================== =============================vb+access 数据库的记录的添加与删除Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command2_Click()Set rs = cn.Execute("select * from wenzhang where 内容='" & Text1.Text & "'") If Text1.Text = "" ThenMsgBox ("文章不能为空！")ElseIf rs.EOF = False ThenMsgBox ("文章不能重复！")Elsecn.Execute ("insert into wenzhang values('" & Combo1.Text & "','" &Text3.Text & "','" & Text4.Text & "','" &Text1.Text & "')")MsgBox ("ok")End IfEnd Sub'添加按钮Private Sub Command3_Click()Dim myval As StringSet rs = cn.Execute("select * from wenzhang where 内容='" & Text1.Text & "'") If rs.EOF Thenmyval = MsgBox("是否保存文章？", vbInformation + vbYesNoCancel, "提示") If myval = vbYes Thencn.Execute ("insert into wenzhang values('" & Combo1.Text & "','" &Text3.Text & "','" & Text4.Text & "','" &Text1.Text & "')")MsgBox ("保存成功")ElseCombo1.Text = ""End IfElseText1.Text = ""Combo1.Text = ""End IfEnd Sub'删除按钮Private Sub Command4_Click()If Text1.Text = "" ThenMsgBox ("不能删除空记录！")ElseDim myval As Stringmyval = MsgBox("是否删除文章？", vbInformation + vbYesNo, "提示")If myval = vbYes ThenSet rs = cn.Execute("delete from wenzhang where 内容='" & Text1.Text & "'") MsgBox ("删除成功！")End IfEnd IfEnd Sub'连接数据库Private Sub Form_Load()cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\temp.mdb;Persist Security Info=False"cn.CursorLocation = adUseClientcn.OpenEnd Sub//**************另外一种读取access的方法Dim cn As New ADODB.ConnectionDim rs As New ADODB.Recordsetcn.Provider = "microsoft.jet.oledb.4.0"cn.ConnectionString = App.Path + "\#db.mdb"cn.OpenSet rs = cn.Execute("select * from [user]")If rs.EOF ThenMsgBox "您输入的信息有误！"ElseMsgBox "恭喜你！"End IfText2.Text = rs("user_name")cn.Close。