？？高分求：用“ADO编程模型”建立与Access数据库的连接。先谢了！：）在线等，急用！！

Question

目的：
想在一个窗体上实现对“一个数据库”中“多个表”的操作，如“查询，修改，删除等”希望您给偶的答案：
（1）如何声明变量
（2）！！！！重中之重-------“窗体Load事件的详细源代码”-----------！！！
（3）如何实现“控件”和“记录源”的绑定，如：“text1(0)控件”到“表XX”的“字段XX”的绑定
说明：
用“ADO编程模型”解决问题，或者其他方法，但不要用“ADO Data控件”方法和“ODBC”方法题外：
若分不够，偶会另开新贴答谢！！谢谢了，偶在线等待........ :)

Answer 1

给个e-mail 或qq,我发个程序给你

Answer 2

Option ExplicitDim cn As Connection
Dim rs As RecordsetPrivate Sub Form_Load()
    Set cn = New Connection
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
    cn.Open
    Set rs = New Recordset
    rs.Open "select * from test", cn, adOpenForwardOnly, adLockReadOnly
    Text1.Text = Trim(rs.Fields(0).Value & " ")End SubPrivate Sub Form_Terminate()
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Answer 3

在定義connection之前
先引用"Microsoft ActiveX Data Objects 2.5 Library"

Answer 4

1:变量都不会定义？？
Dim cn   As New ADODB.Connection                '定义数据库的连接
Dim rs   As New ADODB.Recordset2:
'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）
'----------------------------------------------------------------------------
Private Sub Form_Load()
   dim strSql as string 
   strSql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Northwind.MDB;Persist Security Info=False"
   CN.Open strSql
end sub3:建议不用绑定，否则还不如用ADO Data控件呢
可以这样呀:
rs.open "select * from table1",cn
text1.txt=rs.fields(0)

Answer 5

请参考
http://expert.csdn.net/Expert/topic/2710/2710006.xml?temp=8.526248E-02