Public Function ReadDataSet(ByVal DataSet11 As DataSet, ByVal DB2005_1 As _
  String, ByVal SqlString As String, ByVal myCon As String) As Integer
 
        Dim OleDbDataAdapter1 As New OleDbDataAdapter(SqlString, myCon)
 
--------> OleDbDataAdapter ist blau unterstrichen, ist nicht definiert 
 
        If DataSet11.Tables.Contains("DB2005_1") Then
            DataSet11.Tables("DB2005_1").Rows.Clear()
        End If
 
        Try
 
            OleDbDataAdapter1.Fill(DataSet11, "DB2005_1")
        Catch ex As Exception
            System.Diagnostics.Debug.WriteLine(ex.Message)
            Throw
        End Try
        Return DataSet11.Tables("DB2005_1").Rows.Count
 
    End Function

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button3.Click
 
        Dim ConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=DB2005.mdb;Mode=ReadWrite;Persist Security Info=False"
 
        Dim SelectStringName As String = "Select * From DB2005_1 Where Name=?"
        Dim SelectStringVorname As String = "Select * From Db2005_1 Where" & _
          "Vorname=?"
        Dim SelectStringGeschlecht As String = "Select * From DB2005_1 Where" & _
        "Geschlecht=?"
        Dim SelectStringbezahlt As String = "Select * From DB2005_1 Where" & _
        "bezahlt=?"
        Dim SelectStringnichtbezahlt As String = "Select * From DB2005_1 Where" & _
        "nicht bezahlt=?"
 
        ReadDataSet(DataSet11, "Name", SelectStringName, ConString)
        ReadDataSet(DataSet11, "Vorname", SelectStringVorname, ConString)
        ReadDataSet(DataSet11, "Geschlecht", SelectStringGeschlecht, ConString)
        ReadDataSet(DataSet11, "bezahlt", SelectStringbezahlt, ConString)
        ReadDataSet(DataSet11, "nicht bezahlt", SelectStringnichtbezahlt, _
          ConString)
 
 
    End Sub