Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
        Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=DB2005.mdb;Mode=ReadWrite;Persist Security Info=False"
 
        N.Connection = Con
        N.CommandType = CommandType.Text
        N.CommandText = "Select * From DB2005_1 Where Name=?"
 
        Vn.Connection = Con
        Vn.CommandType = CommandType.Text
        Vn.CommandText = "Select * From DB2005_1 Where Vorname=?"
 
        MF.Connection = Con
        MF.CommandType = CommandType.Text
        MF.CommandText = "Select * From DB2005_1 Where Geschlecht=?"
 
        b.Connection = Con
        b.CommandType = CommandType.Text
        b.CommandText = "Select * From DB2005_1 Where bezahlt=?"
 
        nb.Connection = Con
        nb.CommandType = CommandType.Text
        nb.CommandText = "Select *From DB2005_1 Where nicht bezahlt=?"
 
    End Sub