VB6.0 怎么连接access已经建立好的表格？请在每条语句后面加上注解，小弟新手不太懂。望高手赐教

Question

谢谢您给出这么详细的回答，我还想问一下
Private Sub Form_Load()'打开数据库
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\实验平台\数据库\留言板.mdb"
End Sub
可不可以在属性页中设置，不用语句来完成？
然后您在看看这个段代码
Private Sub Form_Load()
Dim i
Dim x
x = 0
Dim s
For i = 1 To 6
List1.AddItem yuanliaokj.Recordset.Fields(1).Name
Next
End Sub
运行后提示 对象变量或 with块变量未设置 这是哪里出错了？

Answer 1

Private Conn As New ADODB.Connection
Private Recordset As New ADODB.Recordset

Private Sub Form_Load()'打开数据库
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\实验平台\数据库\留言板.mdb"
End Sub
'增加记录
Private Sub Command1_Click()
Dim sql As String
Set Recordset = Nothing
sql = "select * from liuyan" 'SQL查询语句
Recordset.Open sql, Conn, 1, 3
Recordset.AddNew
Recordset("姓名") = Text1.Text '数据读写操作
Recordset("性别") = Text2.Text '数据读写操作
Recordset("年龄") = Text3.Text '数据读写操作
Recordset("权限") = Text4.Text '数据读写操作
Recordset("时间") = Text5.Text '数据读写操作
Recordset("内容") = Text6.Text '数据读写操作
Recordset.Update
Recordset.Close
End Sub

’显示记录
Private Sub Command3_Click()
Dim sql As String, tex As String
Set Recordset = Nothing
sql = "select * from liuyan" 'SQL查询语句
Recordset.Open sql, Conn, 1, 3
Do While Not Recordset.EOF
For i = 1 To Recordset.Fields.Count - 1
If i = Recordset.Fields.Count - 1 Then
tex = tex & Recordset.Fields(i).Name & ":" & Recordset.Fields(i).Value & vbNewLine
Else
tex = tex & Recordset.Fields(i).Name & ":" & Recordset.Fields(i).Value & Space(25 - Len(Recordset.Fields(i).Value))
End If '输出jsb表中各字段
Next i
Recordset.MoveNext
Loop
Text7.Text = tex
End Sub

这是一个留言板的增加和显示的例子，表名为"liuyan"，有姓名，性别等字段
仅供参考

Answer 2

如果是本地数据库,用Data控件比较简单:
当然也可以用ADODC控件,请搜索"关于VB6 + Access的简单数据库应用问题",有详细介绍.