小妹是初学者,哎,刚刚学玩VB6.0,可是手还生得很,还
不明白VB和ACCESS怎么实现连接,有哪个高手发一段有关VB和ACCESS连接的
程序给小妹参考一下,还有要麻烦各位大虾告诉我实现连接的程序的意思呀,谢谢了

解决方案 »

  1.   

    先引用ADO
    dim cn as new adodb.connection
    Str_mdb="Driver={Microsoft Access Driver (*.mdb)};Uid=;Pwd=;Dbq= " & App.Path & "\Report.mdb"cn.open  Str_mdb
      

  2.   

    dim conn as new adodb.connection
    with conn
        If .State = adStateOpen Then .Close
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\newdata.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=123"
        .Open
    End With