Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.         
   Me.FirmaTableAdapter.Fill(Me.MyDatabase2DataSet.Firma)
   Me.FirmaDataGridView.Sort(Me.FirmaDataGridView.Columns(1), _
     System.ComponentModel.ListSortDirection.Ascending)
End Sub

Private Sub FirmaDataGridView_CellDoubleClick(ByVal sender As Object, ByVal e _
  As System.Windows.Forms.DataGridViewCellEventArgs) Handles _
  FirmaDataGridView.CellDoubleClick
   Form2.Show()
End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
   Me.FirmaTableAdapter.Fill(Me.MyDatabase2DataSet.Firma)
End Sub