' ---------------------------------------------------------------------
        ' ------------------------
        Dim _ConnectionString As String = _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Pfad_Datenbank & _
          Name_Datenbank    'Maschinenbuch.mdb
        Dim _selectString As String = "SELECT * FROM" & _
        "A_Grammatur_Auflage_Zuschuss_RB WHERE = CalcNo=?"
        Dim _Adapter As New OleDbDataAdapter(_selectString, _ConnectionString)
        Dim _dt As New DataTable("A_Grammatur_Auflage_Zuschuss_RB")
        _Adapter.SelectCommand.Parameters.AddWithValue("CalcNo", Kalk)
        _Adapter.Fill(_dt)  ' Syntaxfehler (fehlender Operator) in 
        ' Abfrageausdruck '= CalcNo=?'.
        ' ---------------------------------------------------------------------
        ' ------------------------

Hänk

(Wer früh aufsteht hat mehr vom Tag)