Try Dim lcsql As String = "Select * from Margin where pk_id = " & "4" Dim lcconstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\data;Extended Properties=dBASE IV;User ID=Admin;Password=" Dim ocon As New OleDb.OleDbConnection(lcconstr) Dim oda As New OleDb.OleDbDataAdapter(lcsql, ocon) ' oda.Fill(ds, "Margin") ocon.Close() Catch EX As Exception MsgBox(vbCr & vbLf & Date.Now & "---Error message---" & EX.Message & "--Stack Trace----" & EX.StackTrace) End Try