Private Sub DataGrid1_dblclick()
Dim strSQL As String
Dim cnn As New ADODB.Connection
Dim adr As New ADODB.Recordset
Dim name As String
Dim cmd As ADODB.Command
Dim strConn As String
strConn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;" & _
          "DATABASE=doc; USER=root;PASSWORD=akista;OPTION=3"

cnn.CursorLocation = adUseClient
cnn.ConnectionString = strConn
cnn.Open
adr.Open "select * from docs ", cnn, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = adr
name = adr![firm]
Label8.Caption = name
End Sub

Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
Dim strFirm As String
Dim strUser As String
Select Case ColIndex
Case  0 
    strFirm = DataGrid1.Text ' значение колонки FIMR
    Debug.Print strFirm
Case  1 
    strUser = DataGrid1.Text ' значение колонки USER
    Debug.Print strUser
End Select

End Sub

Private Sub Form_Load()
DataGrid1.Columns( 0 ).Button = True ' ИНДЕКС ПОЛЕ FIRM
DataGrid1.Columns( 1 ).Button = True ' ИНДЕКС ПОЛЕ  USER
End Sub

number = Label1.Caption
adr.Open "select * from docs WHERE id=" & number, cnn, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = adr

Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
Dim strFirm As String
Dim strUser As String
Select Case ColIndex
Case  0 
    Form3.Show
    Form3.Label1.Caption = DataGrid1.Text 
End Select
End Sub

Private Sub Form_Load()
Dim strSQL As String
Dim cnn As New ADODB.Connection
Dim adr As New ADODB.Recordset
Dim name As String
Dim cmd As ADODB.Command
Dim strConn As String
Dim number As String
strConn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;" & _
          "DATABASE=doc; USER=root;PASSWORD=akista;OPTION=3"

cnn.CursorLocation = adUseClient
cnn.ConnectionString = strConn
cnn.Open
number = Label1.Caption
adr.Open "select * from docs WHERE id=" & number, cnn, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = adr
ShowTitleBar False
Form3.Width = Screen.Width
DataGrid1.Width = Screen.Width -  30 
End Sub