你怎么写的?
Private Sub cmdFind_Click()
Dim FilePath As String
    FilePath = "C:\cbsp\cbsp.mdb"
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath & ";Persist Security Info=False"
    Adodc1.RecordSource = "select * from syslog"
    Set DataGrid1.DataSource = Adodc1
    
End Sub

解决方案 »

  1.   

    dim conn as new connection
    dim rs as new recordset
    dim sqlstr as string
    conn.open "driver={sql server};server=yourserver;uid=youruid;pwd=yourpwd;database=yourdatabase"
    sqlstr="select * from yourtable"
    rs.open sqlstr,conn,1,3
    '其中 yourserver是你的服务器名或服务器的IP地址;youruid是你登录数据库服务器的帐号;yourpwd是你登录数据库服务器的密码;yourdatabase是你的数据库名;yourtable是你的表名。
      

  2.   

    再form的load事件里写    Adodc1.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & ";Persist Security Info=False"