Dim VFPDBCPath As String = ConfigurationSettings.AppSettings("VFPDBCPath") Dim oConnect As New OleDbConnection("Provider=VFPOLEDB.1;Data Source=" & VFPDBCPath & ";") sSelect = "SELECT TitleID FROM Title" Dim cSelect As New OleDbCommand(sSelect, oConnect) Dim oDataAdp As New OleDbDataAdapter(cSelect) Dim oDataSet As New DataSet, oDataRow As DataRow oDataAdp.Fill(oDataSet)