Private Sub DataGrid1_dblClick()
   If IsNull(DataGrid1.Bookmark) Then Exit Sub
   Dim rs As ADODB.Recordset
   Set rs = DataGrid1.DataSource
   rs.Bookmark = DataGrid1.Bookmark

   Dim f As ADODB.Field
   Dim s As String
   For Each f In rs.Fields
      s = s & f.Value & vbCrLf
      lngId = s
      Form3.Show
      Form3.Command1.SetFocus
      Exit Sub
   Next
 End Sub

    Private Sub DataGridView1_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick
        Dim i, j As Integer
        Dim st As String
        i = DataGridView1.CurrentCellAddress.X
        j = DataGridView1.CurrentCellAddress.Y
        st = DataGridView1.Rows(j).Cells(i).Value
        MsgBox(st)
    End Sub