



Public conn As ADODB.Connection
Public Sub conect()
    Set conn = New ADODB.Connection
    conn.CursorLocation = adUseClient
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\base.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
End Sub


Public conn As ADODB.Connection 
Public Sub conect() 
On Error Goto Err_Debug
    Set conn = New ADODB.Connection 
    conn.CursorLocation = adUseClient 
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\base.mdb;Persist Security Info=False" 
    if conn.State=1 then
        Msgbox "Подключились!"
    end if
lb_out:
    exit sub
Err_Debug:
   Msgbox Err.Number & ": " & Err.Description, vbCritical
   Set conn=Nothing
   Resume lb_out
End Sub 
Private Sub Form_Load()
With Data1
    .DatabaseName = "D:\base.mdb"
    .RecordSource = scheta
End With
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7