Alright....I got it working. I had this
VB Code:
For i = 1 To rsSchema.RecordCount 'Add the current value of the schema to the Combo box Combo1.AddItem rsSchema.Fields("TABLE_NAME").Value 'Move the schema to the next one rsSchema.MoveNext Next
And I changed it to
VB Code:
Do Until rsSchema.EOF = True 'Add the current value of the schema to the Combo box Combo1.AddItem rsSchema.Fields("TABLE_NAME").Value 'Move the schema to the next one rsSchema.MoveNext Loop
