Public Class Daten_einlesen
 
    Dim myOleDbConection As New OleDbConnection
    Dim myOleDbSelectCommand As New OleDbCommand
    Dim myOleDbDataAdapter As New OleDbDataAdapter
    Dim myDataSet As New DataSet
 
...
 
    Public Sub Papier(ByVal Name_Datenbank As String, ByVal Kalk As String, _
      ByVal PT As Integer)
 
        myOleDbConection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & Pfad_Datenbank & Name_Datenbank    
        myOleDbConection.Open()
        myOleDbSelectCommand.Connection = myOleDbConection
        myOleDbSelectCommand.CommandText = "Select * From" & _
          "A_Grammatur_Auflage_Zuschuss_RB ORDER BY CalcNo DESC"  ' CalcNo 
        ' sortieren
 
        myOleDbDataAdapter.SelectCommand = myOleDbSelectCommand
 
        myDataSet.Clear()
        myOleDbDataAdapter.Fill(myDataSet, "A_Grammatur_Auflage_Zuschuss_RB")
 
 
        Dim _row As DataRow
        Dim a As Integer = 0
 
 
        ----------------------------------------------------------
        Dim RowID As Integer = -1
        Dim Wert As Integer = 0
 
        ' in dieser Abfragetabelle stehen die einzulesenden Daten untereinander 
        ' ------------------------------------------
        For Each _row In myDataSet.Tables( _
          "A_Grammatur_Auflage_Zuschuss_RB").Rows
            If CStr(_row("CalcNo")) = Kalk Then
...
 
 myOleDbConection.Close()

Hänk

(Wer früh aufsteht hat mehr vom Tag)