Try Dim lcsql As String = "select * from crdlog where entdate = 05/11/2005" '& Date.Today MsgBox(lcsql) Dim ocon As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\actionxp\data;Extended Properties=dBASE IV;User ID=Admin;Password=") Dim oda As New OleDb.OleDbDataAdapter(lcsql, ocon) ' oda.Fill(ds) MsgBox(ds.Tables(0).Rows.Count) 'should be 6 records Catch EX As Exception Console.WriteLine(EX.Message) End Try