请依vb+access为例。

解决方案 »

  1.   

    有好几种,最常用也最方便的是用连接字符串。例:
    connectstring = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                       & "Data Source=" & App.Path & "\data\月欠税情况.mdb;" _
                       & "Persist Security Info=False"
      

  2.   

    dim db As ADODB.Connection
    Set db = New ADODB.Connection
    db.ConnectionString = "driver={SQL Server};server=(local)或写服务器名;database=databasesname;Persist Security Info=False;user id=sa;"
    db.Open