Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button3.Click
 
        DataGrid1.DataBindings.Clear()
        If (ComboBox1.Text.Trim = "") Then
            MessageBox.Show("Bitte um eine Auswahl", _
              MessageBoxIcon.Information, MessageBoxButtons.OK)
            ComboBox1.Focus()
            Exit Sub
        End If
        If ComboBox1.SelectedIndex = 0 Then
            N.Parameters.Add("Name", Data.OleDb.OleDbType.Variant)
            N.Parameters("Name").Value = TextBox1.Text
            Con.Open()
            Read = N.ExecuteReader()
            With Read
                While .Read
                    DataGrid1.DataBindings.Add("       " & .GetValue(0) & "    " & _
                      "           " & .GetValue(1) & "                " & _
                      .GetValue(2) & "                " & .GetValue(3) & "    " & _
                      "" & .GetValue(4))
                End While
            End With
            Con.Close()
        End If
        If ComboBox1.SelectedIndex = 1 Then
            Vn.Parameters.Add("Vorname", Data.OleDb.OleDbType.Variant)
            Vn.Parameters("Vorname").Value = TextBox1.Text
            Con.Open()
            Read = Vn.ExecuteReader()
            With Read
                While .Read
                    DataGrid1.DataBindings.Add("       " & .GetValue(0) & "    " & _
                      "           " & .GetValue(1) & "                        " _
                      & .GetValue(2) & "                " & .GetValue(3))
                End While
            End With
            Con.Close()
        End If
        If ComboBox1.SelectedIndex = 2 Then
            MF.Parameters.Add("Geschlecht", Data.OleDb.OleDbType.Variant)
            MF.Parameters("Geschlecht").Value = TextBox1.Text
            Con.Open()
            Read = MF.ExecuteReader()
            With Read
                While .Read
                    DataGrid1.DataBindings.Add("       " & .GetValue(0) & "    " & _
                      "           " & .GetValue(1) & "                        " _
                      & .GetValue(2))
                End While
            End With
            Con.Close()
        End If
        If ComboBox1.SelectedIndex = 3 Then
            b.Parameters.Add("bezahlt", Data.OleDb.OleDbType.Variant)
            b.Parameters("bezahlt").Value = TextBox1.Text
            Con.Open()
            Read = b.ExecuteReader
            With Read
                While .Read
                    DataGrid1.DataBindings.Add("        " & .GetValue(0) & "   " & _
                      "            " & .GetValue(1) & "                       " & _
                      "" & .GetValue(2) & "                " & .GetValue(3))
                End While
            End With
            Con.Close()
        End If
        If ComboBox1.SelectedIndex = 4 Then
            nb.Parameters.Add("nicht bezahlt", Data.OleDb.OleDbType.Variant)
            nb.Parameters("nicht bezahlt").Value = TextBox1.Text
            Con.Open()
            Read = nb.ExecuteReader
            With Read
                While .Read
                    DataGrid1.DataBindings.Add("        " & .GetValue(0) & "   " & _
                      "            " & .GetValue(1) & "                       " & _
                      "" & .GetValue(2) & "                " & .GetValue(4))
                End While
            End With
            Con.Close()
        End If
    End Sub

DataGrid1.DataBindings.Add("       " & .GetValue(0) & "                " & _
  .GetValue(1) & "                " & .GetValue(2) & "                " & _
  .GetValue(3) & "     " & .GetValue(4))