Dim Datum_vom As String = Datum_nach_US(dStart)
Dim Datum_bis As String = Datum_nach_US(dStart.AddDays(4))
 
oAdapter = New OleDbDataAdapter("SELECT Name, vom, bis, Tage FROM Urlaub WHERE" & _
  "Jahr=" & Me.Numeric_Jahr.Value.ToString & _
                           " AND vom BETWEEN " & Datum_vom & " AND " & _
                           Datum_bis & _
                           " OR bis BETWEEN " & Datum_vom & " AND " & Datum_bis _
                           & " ORDER BY Name", oConn)
 
 
Private Function Datum_nach_US(ByVal dat As DateTime) As String
    Return ("#" & dat.ToString("d", New CultureInfo("en-US")) & "#")
End Function

Hänk

(Wer früh aufsteht hat mehr vom Tag)