Dim mLieferdatum as date = tfLieferdatumFirma1.Text
mLieferdatum = String.Format("{0:d}", mLieferdatum)
 comGastrodesk.CommandText = "SELECT Auftrag.*, Kunden.* FROM Auftrag Inner" & _
   "Join Kunden on Auftrag.KundenNr = Kunden.KundenNr WHERE Lieferdatum = #" & _
   mLieferdatum & "# And Firma = '" & mUnterschrift1Firma1 & "' Order by" & _
   "Lieferzeit"
Try
                drGastrodesk = comGastrodesk.ExecuteReader
Catch ex As Exception
                MessageBox.Show(ex.Message)
Exit Sub
End Try

Mehr Fragen als Wissen....und Spa? daran