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"