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")

Var connectionstring = string.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
  "Source={0}{1}", Pfad_Datenbank  Name_Datenbank)
Var selectString =CommandText = "Select * From A_Grammatur_Auflage_Zuschuss_RB" & _
"Where CalcNo=?" 
 
dim adap as New OleDbDataAdapter(selectString, connectionstring )
var dt = new DataTable("A_Grammatur_Auflage_Zuschuss_RB")
dt.SelectCommand.Parameters.AddWithValue( "CalcNo", Kalk )
adap.Fill(dt)