Imports System Imports System.data Imports System.Data.OleDb Module Module1 Sub Main() Dim cConnString As String = "User ID=;DSN=;" & _ "Cache Authentication=False;Data Source=""C:\MY DOCUMENTS\VISUAL FOXPRO PROJECTS\TestSettings.dbc"";" & _ "Password=;Provider=""VFPOLEDB.1"";Collating Sequence=MACHINE;MaskPassword=False;Mode=Share Deny None;" & _ "Extended Properties=;Encrypt Password=False;" Dim oConnection As System.Data.OleDb.OleDbConnection = New OleDbConnection(cConnString) Dim oCommand As OleDbCommand = New OleDbCommand Try oCommand.Connection = oConnection oConnection.Open() oCommand.CommandText = "SET EXACT OFF" oCommand.ExecuteNonQuery() oCommand.CommandText = "SET ANSI OFF" oCommand.ExecuteNonQuery() ' Gets Apples and Applesauce oCommand.CommandText = "SELECT * FROM TestSettings WHERE Field1 = 'Apples'" Dim oDataReader As System.Data.OleDb.OleDbDataReader = oCommand.ExecuteReader() Do While oDataReader.Read System.Console.WriteLine(oDataReader.GetValue(0).ToString) Loop Catch oEx As Exception MsgBox(oEx.ToString) Finally oConnection.Close() End Try End Sub End Module