Another 2 questions...

[Frosty]

1) I'm trying to cycle through all the TextBoxes in my form. This does not seem to work. Where did I go wrong?

Dim mtxt as TextBox
For Each mtxt In Me.Controls
mtxt.Enabled = True
Next mtxt


2) I'm having trouble figuring out the ADO find function:
Find (criteria, SkipRows, searchDirection, start)

I more or less worked out criteria, but can someone please give me an example of how to use the other parameters? I can't seem to find one anywhere. My code as it stands:

Private Sub cboAgentCode_Change()
On Error GoTo NotFoundErr
Dim x As String
x = "intAgentCode = " & cboAgentCode.Text
datAgent.Recordset.Find (x)

Exit Sub
NotFoundErr:
MsgBox Err.Description
End Sub

Problem is, it works just fine if I cycle through the recordset using the ADO control itself. However, if I were to use the ComboBox to select a record which is earlier than the current record, an error would occur, I'm guessing because at the moment, it only searches one way.

[HeSaidJoe]

'an example of going throught textboxes

'clear all textboxs on all forms or all textboxes on a single form
'
Option Explicit
'
Public Sub ClearTxt()
'
'mycontrol = control and increment is increment for forms
'some situtations use more than one form.
'
	Dim ctlMyControl As Control
	Dim intIncrement As Integer
'
    	For intIncrement = 0 To Forms.Count - 1
        	For Each ctlMyControl In Forms(intIncrement).Controls
'
   	If TypeOf ctlMyControl Is TextBox Then
'
      		ctlMyControl.Text = ""
'
   	End If
'
        Next ctlMyControl
'
            Next intIncrement
'
End Sub