Set cnnDB = New ADODB.Connection
strConnect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Staff;Data Source=MySQLServer"
cnnDB.Open strConnect
Set rst = New ADODB.Recordset
strSQL = "SELECT … FROM …"
rst.Open strSQL, cnnDB
.
.
.

Option Explicit

Private cnnDB       As New ADODB.Connection
Private rstListPost As New ADODB.Recordset
Private strConnect  As String
Private strSQL      As String

Private Sub Form_Load()
    strConnect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Staff;Data Source=MySQLServer"
    cnnDB.Open strConnect
    cnnDB.CursorLocation = adUseClient
     strSQL = "SELECT ... FROM ... "
    rstListPost.Open strSQL, cnnDB, adOpenDynamic, adLockPessimistic, adCmdText
    Set TDBGrid1.DataSource = rstListPost
End Sub

Private Sub Form_Unload(Cancel As Integer)
    rstListPost.Close
    cnnDB.Close
End Sub

Private Sub Form_Load()
    Set cnnDB = New ADODB.Connection
    strConnect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Staff;Data Source= MySQLServer "
    cnnDB.CursorLocation = adUseClient
    cnnDB.Open strConnect
    Set rstListPost = New ADODB.Recordset
    rstListPost.Open "spU_LPCView", cnnDB, adOpenDynamic, adLockOptimistic, adCmdStoredProc
End Sub

Private Sub CmdEdit_Click()
    'Редактирование записи
        Dim lngRowAffected As Long
        ‘Вызов формы - определение новых значений полей
	. . .
        ‘
        Call cnnDB.Execute _
            ("spU_LPCUpdate('" & strVal1 & "', " & strVal2 & ", " & _
            rstListPost.Fields("ID_Key").Value & ")", lngRowAffected, adCmdStoredProc)
        rstListPost.Requery
End Sub

CREATE PROCEDURE spU_LPCView 
AS
SELECT * FROM Table

CREATE PROCEDURE spU_LPCUpdate 
   @NewVal1 nvarchar( 255 )='New1',
   @NewVal2 nvarchar( 255 )='New2',
   @ID_Key int= 0 
AS
   UPDATE Table SET Table.Val1=@NewVal1, Table.Val2=@NewVal2
          WHERE Table.ID_Key=@ID_Key