Rusty SQL Statement

[cid]

Private Sub DatabaseM_Click()
    Dim ADOCn       As ADODB.Connection
    Dim rsValues    As ADODB.Recordset
    Dim ConnString  As String
        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
End Sub

And also, Say that i have 70 textboxes instead of 9, is there anyway that i could use ADO without typing out all 70 textboxes and all 70 fields?