ADO和DATAGrid求救

Question

在窗口加载的时候把adodc1中的数据导到datagrid1网格中，可是老提示找不到odbc驱动这是为什么呀？高手指点下
Private Sub Form_Load()
    Dim strSql As String
    
    cn.Provider = "microsoft.jet.oledb.4.0"
    cn.ConnectionString = App.Path & "database.mdb"
    If cn.State <> adStateClosed Then cn.Close
    cn.Open
    
    strSql = "select * from info"
    Adodc1.RecordSource = "strSql"
    Set DataGrid1.DataSource = Adodc1    Adodc1.Refresh
    cn.Close

Answer 1

 Adodc1.RecordSource = "strSql"改成 Adodc1.RecordSource = strSql

Answer 2

  cn.ConnectionString = App.Path & "\database.mdb" 

Answer 3

数据库没有连接好,如:
Public   gsOdbcName   As   String   
Public   ADOsdb   As   new   ADODB.Connection         gsOdbcName   =   "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data   Source= "   _ 
                &   app.path   &   "\db.mdb "   &   "; " 
        
With   ADOsdb 
                If   .State   <>   adStateOpen   Then 
                        .CursorLocation   =   adUseClient 
                        .ConnectionString   =   gsOdbcName 
                        .Open 
                End   If 
End   With 

Answer 4

Private Sub Form_Load() 
    Dim strSql As String 
     
    cn.Provider = "microsoft.jet.oledb.4.0" 
    cn.ConnectionString = App.Path & "\database.mdb" 
    If cn.State  <> adStateClosed Then cn.Close 
    cn.Open 
     
    strSql = "select * from info" 
    Adodc1.RecordSource = strSql 
    
    Set DataGrid1.DataSource = Adodc1     Adodc1.Refresh    
    cn.Close 
 
提示找不到odbc驱动，断点到红色那行出错

Answer 5

With   ADOsdb  
                If   .State    <>   adStateOpen   Then  
                        .CursorLocation   =   adUseClient  
                        .ConnectionString   =   gsOdbcName  
                        .Open  
                End   If  
End   With  
 红色那块会出错，未找到安装可能的ISAM驱动

Answer 6

'使用以下代码吧，帮你测试可能通过。Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSql As String
   
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb ;Persist Security Info=False"
    If cn.State <> adStateClosed Then cn.Close
    cn.Open
    rs.Open "Select  *  From  表1", cn, adOpenKeyset, adLockReadOnly
  
    Set DataGrid1.DataSource = rs
    rs.Close
    cn.Close
    
End Sub