Datos de combo a combo

[Sergio18]

si esta abierta te pongo todo el codigo:

Código vb:

Option Explicit
Public cnPrueba As Connection
Public rsTbl_Direccion As Recordset
Public rsciudad As Recordset
Public rsProvincias As Recordset
Public rsCiudad2 As Recordset
 
Private Sub Combo2_Click()
Set cnPrueba = New Connection
'Establecer sus propiedades
With cnPrueba
.Provider = "Microsoft.Jet.oledb.4.0"
.ConnectionString = "prueba.mdb"
End With
cnPrueba.Open
'Crear un conjunto de registros desde la tabla Ciudad2
Set rsCiudad2 = New Recordset
'Establecer sus propiedades
With rsCiudad2
    .CursorLocation = adUseClient
    .Open "select ciudad from ciudad2 where idprovincia = '" & Combo2.Text & "', cnPrueba, adOpenDynamic, adLockOptimistic"
End With
'Añadimos la tabla de ciudad2 al combo1
Do Until rsCiudad2.EOF()
Combo1.AddItem rsCiudad2!ciudad
rsCiudad2.MoveNext
Loop
End Sub
 

saludos