Option Explicit
Const strProvider As String = "Provider=SQLOLEDB;" '"Provider=SQLNCLI;"
Const strServer As String = "Server=\SQLExpress;" '"Server=;" '
'Const strDatabase As String = "Database=" & strDatabase & ";"
Const strUID As String = "User Id=sa;"
Const strPassword As String = "Password=11111111"
Public Sub GwxDisplay_DisplayLoad()

    Call ConnectGZU("GZU")
MsgBox "connect"
Exit Sub


End Sub

Private Sub GwxDisplay_DisplayUnload()
'On Error Resume Next

    conGZUDB.Close
    Set rcsGZUDB = Nothing
    Set conGZUDB = Nothing

End Sub

Public Sub ConnectGZU(strDatabase As String)
'On Error Resume Next

    Set conGZUDB = New ADODB.Connection
    Set rcsGZUDB = New ADODB.Recordset

    strDatabase = "Database=" & strDatabase & ";"

    With conGZUDB
        conGZUDB.ConnectionString = strProvider & strServer & strDatabase & strUID & strPassword
        conGZUDB.ConnectionTimeout =  600 
        conGZUDB.Open
    End With

    Set rcsGZUDB = New ADODB.Recordset
    Set rcsGZUDB.ActiveConnection = conGZUDB

End Sub

Option Explicit
 
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
 
Private Sub Form_Load()
 
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
 
With conn
   .CursorLocation = adUseClient
   .Provider = "Microsoft.Jet.OLEDB.3.51"
   .Properties("Data Source").Value = "C:\Program Files\Microsoft Visual Studio\VB98\NWind.mdb"
   .Open
End With
 
rst.Open "Select * From Orders", conn, adOpenDynamic, adLockOptimistic
 
Set DataGrid1.DataSource = rst
 
End Sub
 
Private Sub Form_Resize()
DataGrid1.Move  0 ,  0 , ScaleWidth, ScaleHeight 
End Sub

Option Explicit
Const strProvider As String = "Provider=SQLOLEDB;" '"Provider=SQLNCLI;"
Const strServer As String = "Server=\SQLExpress;" '"Server=;" '
'Const strDatabase As String = "Database=" & strDatabase & ";"
Const strUID As String = "User Id=sa;"
Const strPassword As String = "Password=11111118"
Public conGZUDB As ADODB.Connection
Public rcsGZUDB As ADODB.Recordset


Private Sub Form_Load()
Call ConnectGZU("GZU")
MsgBox "óðà"
End Sub

Private Sub Form_Resize()
DataGrid1.Move  0 ,  0 , ScaleWidth, ScaleHeight
End Sub

Private Sub Form_Unload(Cancel As Integer)
 conGZUDB.Close
    Set rcsGZUDB = Nothing
    Set conGZUDB = Nothing
End Sub
Public Sub ConnectGZU(strDatabase As String)


    Set conGZUDB = New ADODB.Connection
    Set rcsGZUDB = New ADODB.Recordset

    strDatabase = "Database=" & strDatabase & ";"

    With conGZUDB
        conGZUDB.ConnectionString = strProvider & strServer & strDatabase & strUID & strPassword
        conGZUDB.ConnectionTimeout =  600 
        conGZUDB.Open
    End With
rcsGZUDB.Open "Select * From m_GZU_Zam", conGZUDB, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = rcsGZUDB
End Sub 

Private Sub DataGrid1_OnClick()
    rcsGZUDB!ID =  3 
    rcsGZUDB.Update
End sub

Private Sub DataGrid1_OnClick()
    rcsGZUDB!ID =  3 
    rcsGZUDB.Update
End sub

Private Sub DataGrid1_OnClick()
    rcsGZUDB!ID =  1 
DataGrid1.Bookmark = rcsGZUDB.Bookmark
    rcsGZUDB.Update
End Sub