>Imports System.Data.OleDb > >Module VFPStuff > > Public Sub VFP1() > > Dim connStr As String = "Provider=VFPOLEDB.1;Data Source=" & _ > "c:\program files\microsoft\vfp8\samples\data\testdata.dbc" > Dim strSQL As String = "SELECT * FROM Products" > Dim oda As New OleDbDataAdapter(strSQL, connStr) > Dim cmdInsert As New OleDbCommand("INSERT INTO Products " & _ > "(product_id, prod_name) VALUES ('KEV1','Kevin1')") > > oda.InsertCommand = cmdInsert > > MsgBox("Inserted") > > End Sub > >End Module >Kevin,