VB6.0连接access2003数据库的方法

在工程里找到部件 在部件里找到Microsoft ADO Control 6.0,勾上，点应用，工具拦上出现一个拉练样的控件为止。把ADO拖放到窗体上，VISIBLE属性设置成不可见。再拖放一个按钮，一个文本框，连接语句这么写：
Private Sub Command1_Click()
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS完整路径/ACCESS名;UID=...;PWD=...."
Adodc1.RecordSource="Select * From ACCESS 表"
Adodc1.Refresh
'----------//这就是连接数据库字符串，要引用数据就该这么写
If Not Adodc1.RecordSET.EOF Then
'---------//必须排除数据连接异常，不然查询数据时每次提示响应连接
Text1=Adodc1.RecordSet.Fields("字段名")
'--------让文本框显示查询列第一个记录
End If
End Sub

ACCESS里面的表连接到数据库,窗体中的控件数据来源于表.

250