Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DataGridViewCellEventArgs) Handles _
  DataGridView1.CellClick
        Dim datum As String = DataGridView1.Rows(e.RowIndex).Cells( _
        7).Value.ToString()
        Dim gpnr As String = String.Empty
        frmWiegedaten.lstAbzuege.Items.Clear()
        frmWiegedaten.txtWiegeNr.Text = DataGridView1.Rows(e.RowIndex).Cells( _
          0).Value.ToString()
        frmWiegedaten.txtDatum.Text = datum.Substring(0, 10)
        frmWiegedaten.txtLKWKZ.Text = DataGridView1.Rows(e.RowIndex).Cells( _
          2).Value.ToString()
        frmWiegedaten.txtKonto.Text = DataGridView1.Rows(e.RowIndex).Cells( _
        3).Value.ToString()
        gpnr = DataGridView1.Rows(e.RowIndex).Cells(3).Value.ToString()
        frmWiegedaten.txtG1.Text = DataGridView1.Rows(e.RowIndex).Cells( _
          8).Value.ToString()
        frmWiegedaten.txtG2.Text = DataGridView1.Rows(e.RowIndex).Cells( _
        10).Value.ToString()
        If frmWiegedaten.txtG2.Text = "0" Then
            frmWiegedaten.txtG2.Text = ""
            frmWiegedaten.txtDiff.Text = ""
        Else
            frmWiegedaten.txtDiff.Text = Convert.ToString(Convert.ToInt32( _
              frmWiegedaten.txtG1.Text) - Convert.ToInt32( _
              frmWiegedaten.txtG2.Text))
        End If
        frmWiegedaten.cboSorte.Text = DataGridView1.Rows(e.RowIndex).Cells( _
          5).Value.ToString()
        frmWiegedaten.cboLager.Text = DataGridView1.Rows(e.RowIndex).Cells( _
        6).Value.ToString()
        frmWiegedaten.Panel2.Visible = True
        frmWiegedaten.Panel1.Visible = False
 
        Dim conn As New SqlConnection("Data Source=*****;Initial" & _
          "Catalog=****;User Id=****;Password=*****;")
        Dim myCommand As SqlCommand
 
        'Spediteur, Bemerkung
        Try
            conn.Open()
            myCommand = New SqlCommand("Select Spediteur, Bemerkung from" & _
              "TblWiegeDaten where WiegeID = '" + frmWiegedaten.txtWiegeNr.Text( _
              ) + "' ", conn)
            Dim dr As SqlDataReader = myCommand.ExecuteReader()
 
            While dr.Read()
                frmWiegedaten.txtSped.Text = dr(0).ToString
                frmWiegedaten.txtBemerkung.Text = dr(1).ToString
            End While
            conn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Fehler", MessageBoxButtons.OK, _
              MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
        End Try
 
        'Wiegeabzuege
        Dim bez As String = String.Empty
        Dim menge As String = String.Empty
        Dim MEinheit As String = String.Empty
        Try
            conn.Open()
            myCommand = New SqlCommand("Select * from TblWiegeAbzuege where" & _
              "WiegeID = '" + frmWiegedaten.txtWiegeNr.Text() + "' ", conn)
            Dim dr As SqlDataReader = myCommand.ExecuteReader()
 
            While dr.Read()
                bez = dr(3).ToString
                menge = dr(4).ToString
            End While
            conn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Fehler", MessageBoxButtons.OK, _
              MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
        End Try
        'Wiegeabzuege
        Try
            conn.Open()
            myCommand = New SqlCommand("Select * from TsyAbzugsarten where" & _
              "Bezeichnung = '" + bez + "' ", conn)
            Dim dr As SqlDataReader = myCommand.ExecuteReader()
 
            While dr.Read()
                MEinheit = dr(3).ToString
            End While
            conn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Fehler", MessageBoxButtons.OK, _
              MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
        End Try
 
        Dim lvi As New ListViewItem
        lvi.Text = bez
        lvi.SubItems.Add(menge)
        lvi.SubItems.Add(MEinheit)
        frmWiegedaten.lstAbzuege.Items.Add(lvi)
 
        Try
            conn.Open()
            myCommand = New SqlCommand("Select Name1, Name2, Name3, Strasse," & _
              "Plz, Ort from TblGeschaeftspartner where GPartnerNr = '" & gpnr _
              & "' ", conn)
            Dim dr As SqlDataReader = myCommand.ExecuteReader()
 
            While dr.Read()
                frmWiegedaten.txtAdresse.Text = dr(0).ToString & " " & dr( _
                  1).ToString & " " & dr(2).ToString & _
                  System.Environment.NewLine & dr(3).ToString & _
                  System.Environment.NewLine & dr(4).ToString & " " & dr( _
                  5).ToString
            End While
            conn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Fehler", MessageBoxButtons.OK, _
              MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
        End Try
        Me.Close()
    End Sub