Private Shared Function OpenVFPConnection() As IDbConnection Dim VFPData = New System.Data.OleDb.OleDbConnection VFPData.ConnectionString = "whatever" Try VFPData.Open() Catch ex As Exception Throw New Exception("Failed to open Data Connectionn", ex) End Try 'Set VFP environment bits: Dim oledbcmd As New OleDbCommand oledbcmd.Connection = VFPData oledbcmd.CommandText = "SET NULL OFF" + Chr(13) + Chr(10) + "SET DELETE ON" +CHR(13)+CHR(10)+"RAND(-1)" oledbcmd.CommandType = CommandType.Text oledbcmd.ExecuteNonQuery() Return CType(VFPData, IDbConnection) End FunctionThen always use
.Command.Connection = OpenVFPConnection().etc