各位大侠朋友：
     您们好！
     有个问题想请教一下，我现在想把VB与access连接起来，用的是data控件，用两个文本框分别显示数据库中的两列内容，我编的程序怎么运行都不行，请指教，万分感谢！
附件中即为程序（包括数据库）
Private Sub Command1_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub Command2_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst
End Sub

Private Sub Command3_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
End Sub

Private Sub Command4_Click()
Data1.Recordset.MoveLast
End Sub

Private Sub Data1_Reposition()
Data1.Caption = Data1.Recordset.AbsolutePosition + 1
End Sub



Dim rs As ADODB.Recordset
Dim conn As ADODB.Connection
Dim sql As String
Dim cn As Object

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\gdcs.mdb;Persist Security Info=False"
conn.CursorLocation = adUseClient
conn.Open cn

sql = "SELECT gc FROM gdcs WHERE  gdcs.gc=" & gc & ";"

If rs.RecordCount = 0 Then
  rs.Close
Dim TableName As String
    Dim DatabaseName As String
    Dim db As Database
    DatabaseName = App.Path + "\gdcs.mdb"
    Set db = Workspaces(0).OpenDatabase(DatabaseName, False)
    
    TableName = "gdcs"
    Dim record
    Set record = db.OpenRecordset(TableName, 2)
    Text1.Text = record.Fields("gc")