ADODB & Loops Gallor!

[cid]

Option Explicit
    Dim ADOCn As adodb.Connection
    Dim rsvalues As adodb.Recordset
    Dim ConnString As String
    Dim rsrecord As adodb.Record
    Dim i As Integer
    Dim c As Control

Private Sub DataConnect_Click()
    
 
   On Error GoTo DataConnect_Click_Error
 
CommonDialog1.Filter = "Access Database (*.mdb)|*.mdb|"
CommonDialog1.ShowOpen
  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 Permits", ADOCn, adOpenKeyset, adLockOptimistic, adCmdText
For i = 0 To rsvalues.Fields.Count - 1
For Each c In Me.Controls
 If c.Name = "txt" & rsvalues.Fields(i).Name Then
  c.Text = CStr(rsvalues.Fields(i).Value & "")
   Exit For
  End If
 Next c
rsvalues.MoveFirst
 On Error GoTo 0
 Exit Sub
Next
DataConnect_Click_Error:
 
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure DataConnect_Click of Form Permit1"
 End Sub

Private Sub datanew_click()
        For i = 0 To rsvalues.Fields.Count - 1
          For Each c In Me.Controls
                  
          rsvalues.AddNew
      If c.Name = "txt" & rsvalues.Fields(i).Name Then
        Select Case rsvalues.Fields(i).Type
           Case adodb.DataTypeEnum.adVarChar, adodb.DataTypeEnum.adChar
                rsvalues.Fields(i).Value = c.Text
           Case adodb.DataTypeEnum.adDate
                rsvalues.Fields(i).Value = CDate(c.Text)
           Case adodb.DataTypeEnum.adInteger
                rsvalues.Fields(i).Value = CInt(c.Text)
           rsvalues.Update
           End Select
           End If
           Exit For
             Next c
             Next i
                
                
 
    For Each c In Me.Controls
     If TypeOf c Is TextBox Then
    c.Text = vbNullString
End If
Next
End Sub

Private Sub datadel_click()
Set rsrecord = New adodb.Record
rsrecord.DeleteRecord
rsvalues.Update
End Sub
 
Private Sub FillData_Click()
 
  For i = 0 To rsvalues.Fields.Count - 1
    For Each c In Me.Controls
      If c.Name = "txt" & rsvalues.Fields(i).Name Then
        Select Case rsvalues.Fields(i).Type
        Case adText, adChar
            rsvalues.Fields(i).Value = c.Text
        Case adDate
            rsvalues.Fields(i).Value = CDate(c.Text)
        Case adInteger
            rsvalues.Fields(i).Value = CInt(c.Text)
       End Select
      End If
      Exit For
    Next c
  Next i
 
  For Each c In Me.Controls
    If TypeOf c Is TextBox Then
      c.Text = vbNullString
    End If
  Next c
End Sub
 
Private Sub FillText_Click()
For i = 0 To rsvalues.Fields.Count - 1
  For Each c In Me.Controls
    If c.Name = "txt" & rsvalues.Fields(i).Name Then
      c.Text = CStr(rsvalues.Fields(i).Value & "")
      Exit For
    End If
  Next c
Next i
End Sub

Few problems, my DataNew doesnt save the information in the textboxes. And DataDel IS A FRICKING MESS!