ADO Access Connection
Private Sub Form_Load()
On Error GoTo handl
Set DbAcax = New ADODB.Connection
DbAcax.Open "Provider=MSDATASHAPE; Data Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=PassWord; Data Source=" & App.Path & "\.mdb"
DbAcax.CursorLocation = adUseClient
BukaRS
Exit Sub
handl:
If Err <> 0 Then
MsgBox Err.Description, , " Lab~Q 5"
End If
End Sub
On Error GoTo handl
Set DbAcax = New ADODB.Connection
DbAcax.Open "Provider=MSDATASHAPE; Data Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=PassWord; Data Source=" & App.Path & "\.mdb"
DbAcax.CursorLocation = adUseClient
BukaRS
Exit Sub
handl:
If Err <> 0 Then
MsgBox Err.Description, , " Lab~Q 5"
End If
End Sub