菜鸟求助vb读写数据库问题

Question

已知数据库名为A，含表格B   vb程序定义变量为c，如果要读取数据库中某一格的数据，并记录在c里面，print出来，该怎么做？

Answer 1

    '模块
    Public Con As ADODB.Connection
    Public Rcset As ADODB.Recordset
    Public Sqlstr As String 
     Public ConStr As String    Sub Main()
    Set Con = New ADODB.Connection
    ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\A.mdb" & ";Persist Security Info=False"
    Con.Open ConStr
   Form1.Show
End Sub'窗体Set Rcset = New ADODB.Recordset
Sqlstr = "select * from B" 
Rcset.Open Sqlstr, Con, adOpenStatic, adLockPessimistic
If Rcset.RecordCount > 0 Then
    c=Rcset(下标)
End If
Rcset.Close