在VB中添加数据，怎么样保存到数据库中

Question

数据库名：db1 表名：admin 字段有: zhanghao 和 mima 这2个
我在VB窗口界面建立了 text1 和text2 还有Command1 按钮
我要在text1 和 text2 中输入新的数据 然后按 Command1 按钮 保存到数据库中，这个要怎么完成，请教高手
access数据库的

Answer 1

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
cn.Execute "insert into admin (zhanghao,mima) values ('" & Text1.Text & "','" & Text2.Text & "')"
cn.Close
MsgBox "保存完毕！"
End Sub

注意要在工程中引用ADO

Answer 2

这个有点复杂,但一与数据库建立好连接,那就简单多了,就那几条代码,你先建立好连接喽

Answer 3

什么方式连接的?

Answer 4

是什么数据库？