Сетевая БД в VB 6.0

Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
 
Sub Main()
    OpenDB
    Form1.Show
End Sub
 
Sub OpenDB()
    Set conn = Nothing
    Set conn = "Driver={Microsoft Access Driver (*.mdb, *.accdb)}; Dbq=F:\DataBase.mdb;Uid=;Pwd=;"
    conn.Open
    If conn.State = 1 Then
       MsgBox "Соединение установлено"
    Else
       MsgBox "Соединение не установлено"
    End If
End Sub

Private Sub Form_Load()
    Call UpdateConnect
End Sub
 
Sub UpdateConnect()
    Set rs = Nothing
    Set rs = New ADODB.Recordset
    SQL = "SELECT * From Выдача"
    rs.Open SQL, conn, 3, 3
    Set DataGrid1.DataSource = rs
End Sub

Private Sub Command2_Click()
    Set rs = Nothing
    Set rs = New ADODB.Recordset
    SQL = "UPDATE [Êëèåíòû] SET [Ôàìèëèÿ]='Íîâàÿ Ôàìèëèÿ', [Èìÿ]='Íîâîå èìÿ', [Îò÷åñòâî]='Íîâîå îò÷åñòâî', [Äàòà ðîæäåíèÿ]='01.10.2007' WHERE (Êîä=" & DataGrid1.Columns(0).Value & ")"
    rs.Open SQL, conn, 3, 3
    Set rs = Nothing
    Call UpdateConnect
End Sub