Public Sub procConnection(Optional sql As String, Optional rs As ADODB.Recordset, Optional Disconnect As Integer)
 Dim cn As ADODB.Connection
 Dim sINIFile As String
 Dim sServerName As String

'Это для INI файла, не важно вобщем :)
 sINIFile = App.Path &  "\SPKP.INI" 

 sServerName = sGetINI(sINIFile,  "Connection" ,  "Server" ,  "?" )
 
  Set cn = New ADODB.Connection
       cn.CursorLocation = adUseClient
       cn.ConnectionString =  "driver={SQL Server};"  & _
                                       "server="  & sServerName &  ";database="  & strBD
       cn.ConnectionTimeout =  30 
       cn.Open

  rs.CursorType = adOpenStatic
  rs.LockType = adLockOptimistic
  rs.Open sql, cn
 
End Sub

Private Sub Form_Load()
Dim sql As String
Dim rsUUU As New ADODB.Recordset

sql =  "select * from Main" 
procConnection sql, rsUUU
Set dgUchrov.DataSource = rsUUU
end sub

Row cannot be located for updating. Some values may have been changed since it was last read.

Public Sub procConnection(Optional sql As String, Optional rs As ADODB.Recordset, Optional Disconnect As Integer)
 Dim cn As ADODB.Connection
 Dim sINIFile As String
 Dim sServerName As String

    Set cn = New ADODB.Connection
         cn.ConnectionString =  "driver={SQL Server};"  & _
                                        "server="  & sServerName &  ";database="  & strBD
         cn.ConnectionTimeout =  30 
         cn.Open

 
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.CursorLocation = adUseServer

rs.Open sql, cn

End Sub

Set DBGrid.DataSource = rs