一，使用ADO进行连接

    Dim cn As ADODB.Connection  '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
    Dim rs As ADODB.Recordset '定义记录集对象，保存数据表
    Dim strCn As String, strSQL As String '字符串变量
    mydata = ThisWorkbook.Path & "\DATA.MDB"
      '下面的语句将读取数据表数据    
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    curr = 404
    cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & mydata & ";Jet OLEDB:Database Password=123;Persist Security Info=False"
    strSQL = "SELECT WZHGZBH FROM H_CL WHERE CLSBDH='" & Cells(curr, 4) & "'"  '定义SQL查询命令字符串
    rs.Open strSQL, cn, adOpenKeyset, adLockOptimistic
    '下面将读取的数据写入EXCEL
    
    If rs.RecordCount = 1 Then
        Cells(curr, 1) = rs.Fields(0).Value
    End If