Public Function ReadDataSet(ByVal theDS As DataSet, ByVal TableName As _
    String, ByVal SqlString As String, ByVal myCon As String) As Integer
    Dim myAdapter As New OleDbDataAdapter(SqlString, myCon)
    If theDS.Tables.Contains(TableName) Then
      theDS.Tables(TableName).Rows.Clear()
    End If
 
    Try
 
      myAdapter.Fill(theDS, TableName)
    Catch ex As Exception
      System.Diagnostics.Debug.WriteLine(ex.Message)
      Throw
    End Try
    Return theDS.Tables(TableName).Rows.Count
  End Function

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 myDs as new DataSet()
 
ReadDataSet(myDS, "Name",SelectStringName, ConString)
ReadDataSet(myDS, "NichtBezahlt",SelectStringNB, ConString)
ReadDataSet(myDS, "Bezahlt",SelectStringB, ConString)