十分感谢

解决方案 »

  1.   

    须新建数据工程来引用必要的文件,然后通过代码使用ADO数据对象。
    实例代码:
    Option Explicit
        Dim cn As ADODB.Connection
        Dim rs As ADODB.Recordset
        Dim sql As String
        Dim sdbname As String
        Dim sPassword As StringPrivate Sub Form_Load()
        Set cn = New ADODB.Connection
        Set rs = New ADODB.Recordset
        sdbname = App.Path + "\hxrkgl.mdb"
        sPassword = ""
        sql = "Select * from mdlk_sj"
        cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & sdbname & ";" & "Jet OLEDB:Database Password=" & sPassword & ";"
        rs.CursorLocation = adUseClient
        rs.Open sql, cn, adOpenStatic, adLockReadOnly
        Set DataGrid1.DataSource = rs
        Set DataList1.DataSource = rs
        DataList1.Refresh
    End Sub
      

  2.   

    工程--引用--microsoft activex data objects 2.5 library