Dim sql1 As String = "SELECT * FROM Orders Where OrderDate>=? And" & _
          "OrderDate<? Order By OrderID"
        da1 = New OleDb.OleDbDataAdapter(sql1, conn)
        da1.SelectCommand.Parameters.Add("p1", OleDbType.Date).Value = CDate( _
          "15/08/1994")
        da1.SelectCommand.Parameters.Add("p2", OleDbType.Date).Value = CDate( _
        "22/08/1994")

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist