Dim strUpdateSelect As String Dim strConnection As String = "provider=VFPOLEDB.1 ;data source='C:\PROGRAM FILES\MICROSOFT VISUAL FOXPRO 7\SAMPLES\TASTRADE\DATA\TASTRADE.DBC';password='';user id=''" ' Make connection to VFP database Dim VFP7Connection As New OleDbConnection() VFP7Connection.ConnectionString = strConnection VFP7Connection.Open() ' Create a Command object with select statement Dim strSelect As [String] = "SELECT * FROM customer" Dim VFP7SelectCommand As New OleDbCommand(strSelect, VFP7Connection) ' Create a DataAdapter Dim VFP7DataAdapter As New OleDbDataAdapter() VFP7DataAdapter.SelectCommand = VFP7SelectCommand ' Create a DataSet Dim VFP7DataSet As New DataSet() ' Fill the DataSet with table information VFP7DataAdapter.Fill(VFP7DataSet, "Customer") VFP7DataAdapter.FillSchema(VFP7DataSet.Tables("Customer"), SchemaType.Mapped) VFP7Connection.Close() Dim row As DataRow Dim PrimaryKeyNumber As String PrimaryKeyNumber = "CACTU" row = VFP7DataSet.Tables("Customer").Rows.Find(PrimaryKeyNumber) MessageBox.Show(row(0).ToString())>Hi,