ADO to DAO

[cid]

Dim ADOCn       As ADODB.Connection
    Dim rsvalues    As ADODB.Recordset
    Dim ConnString  As String
   On Error GoTo DatabaseM_Click_Error
 
        ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & CommonDialog1.FileName & ";" & _
            "Persist Security Info=False"
        Set ADOCn = New ADODB.Connection
    
    ADOCn.ConnectionString = ConnString
    ADOCn.Open
    Set rsvalues = New ADODB.Recordset
    rsvalues.Open "SELECT * FROM Overview", ADOCn, adOpenKeyset, adLockOptimistic, adCmdText
    With rsvalues
        .AddNew
        .Fields("ProjName").Value = ProjNameT.Text
        .Fields("OilComp").Value = OilCoT.Text
        .Fields("GeoCon").Value = GeoT.Text
        .Fields("SurveyCon").Value = SurvT.Text
        .Fields("DrillCon").Value = DrillT.Text
        .Fields("Total").Value = AcresT.Text
        .Fields("TodDate").Value = DateT.Text
        .Fields("StartDate").Value = StartT.Text
        .Update
End With
ProjNameT.Text = vbNullString
OilCoT.Text = vbNullString
GeoT.Text = vbNullString
SurvT.Text = vbNullString
DrillT.Text = vbNullString
AcresT.Text = vbNullString
DateT.Text = vbNullString
StartT.Text = vbNullString
rsvalues.MoveFirst
ADOCn.Close
Set ADOCn = Nothing
rsvalues.Close
   On Error GoTo 0
      Exit Sub
 
DatabaseM_Click_Error:
 
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure DatabaseM_Click of Form TractPro"

[Hack]

Are you asking to have this converted to DAO?

[cid]

Yes.

[Hack]

Dim Db As Database
Dim Rs As Recordset
Dim sSQL As String
 
Set Db = OpenDatabase(CommonDialog1.FileName)
 
sSQL = "SELECT * FROM Overview"
 
Set Rs = Db.OpenRecordset(sSQL, dbOpenDynaset)
 
With Rs
    .AddNew
    .Fields("ProjName").Value = ProjNameT.Text
    .Fields("OilComp").Value = OilCoT.Text
    .Fields("GeoCon").Value = GeoT.Text
    .Fields("SurveyCon").Value = SurvT.Text
    .Fields("DrillCon").Value = DrillT.Text
    .Fields("Total").Value = AcresT.Text
    .Fields("TodDate").Value = DateT.Text
    .Fields("StartDate").Value = StartT.Text
    .Update
End With