Private WithEvents myControls() As Control
Private Sub loadcontrols()
    Dim i As Long
    ReDim myControls(Fields.Count - 1)
    For i = 0 To Fields.Count - 1
        Select Case Fields(i).Type
            Case adWVarChar
                Set myControls(i) = Form.Controls.Add("VB.TextBox",bla,Form)
            etc...
        End Select
    Next
End Sub

________________________________________________________________________
::Nicht weil es schwer ist wagen wir es nicht, sondern weil wir es nicht wagen ist es schwer::