module1.bas

ACCESS数据库开发例子

Attribute VB_Name = "Module1"
Public cn_c As ADODB.Connection
Public rs_c As ADODB.Recordset
Public nam As String
Public Sub gy_load()
Set cn_c = New ADODB.Connection
Set rs_c = New ADODB.Recordset
    cn_c.ConnectionString = "Driver={microsoft access driver(*.mdb)};"
    cn_c.Open "provider=microsoft.jet.oledb.4.0;data source=data\维修录入.mdb"
    rs_c.ActiveConnection = cn_c
    rs_c.CursorLocation = adUseClient
    rs_c.CursorType = adOpenKeyset
   'where 机型= '" & Combo1.Text & "'", cn_c, rdOpenKeyset, adLockOptimistic
End Sub