怎么用ado啊....
Private Sub Form_Load()
Set gconnect = CreateObject("ADODB.Connection") Dim strConnection As String strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\bbb.mdb" gconnect.Open strConnectionEnd Sub这是联接access的