Visual Basic para Aplicaciones - Problema con conexion vb access

Hola. Tengo un problema con visual basic para access. En una base de datos, tengo un formulario con dos comboboxes y un textbox. Cada combobox tiene que llenarse con el contenido de una tabla perteneciente a otra BD distinta (es decir, en total tres tablas de tres bases de datos). Quiero hacerlo programando mediante VBA, pero algo falla, porque se cuelga el access, sin dar ningún mensaje. Pego un ejemplo sencillo:
Private Sub Form_Load()
Dim con1 As New ADODB.Connection
Dim con2 As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
Dim rst2 As New ADODB.Connection
Const archivo1 As String = "c:\Mis Documentos\pruebaPubs1.mdb"

'trabajo con SQL sobre ADO
On Error Resume Next
con1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= " & archivo1 & ";"
con1.Open
rst1.Open "SELECT * FROM dbo_employees ORDER BY lname", con1, adOpenStatic, adLockOptimistic
While Not rst1.EOF
Combo1.AddItem (rst1.Fields("lname") & ", " & rst1.Fields("fname"))
rst1.MoveNext
Wend
Err = 0

End Sub

Ya probaste quitandole el On Error y rastreando donde o con que valor se cuelga ??

una forma dif de abrirla y muy util sin ado ;-)
1° activar microsoft library Activex 2.0 (referencias)
dim db as connection
dim rs as recordset

Abrir base
set db = new connection
db.cursolocation = adduserclient
db.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\escuela.mdb"

Listo base abierta
utilizacion de los recordser
set rs = new recordset
rs.open"Select * fom tabla where xxxx", db, adOpenDynamic
Recuerda cerrar los recordset luego de utilizarlos.

Gracias Lucyfer. Gracias Pablo. Tomo nota de tu sugerencia, Pablo, y la pondré en práctica en otra ocasión. Tras quitar el "On error.." me ha dado la solución: tenía que poner "value list" en la propiedad "RowSource Type", de lo que no tenía ni idea. La solución era fácil.