Datos de combo a combo

[Sergio18]

Las tablas son:

Provincias: idprovincias,provincias
Ciudad2: idciudad,idprovincias,ciudad

Las otras dos que tengo no hay que utilizarlas, en provincias tengo todas las provincias de España y en ciudad2 la Idprovincia que la obtengo desde otro form , haciendo que yo ponga la ciudad (en un text) y la provincia (en un combo cargado de la tabla provincias)y desde un msflexgrid me añade la ID de la provincias de mede el nombre, y ahora lo que tengo que hacer. (Te lo digo por si te sirve, tambien te pongo el codigo que utilizo para hacerlo a lo mejor asi te da una idea)

Código vb:

Private Sub Command1_Click()
If Text1 = "" Or Combo1 = "" Then
MsgBox "Debe ingresar datos en los campos", vbCritical, Me.Caption
Exit Sub
End If
'------------------------------------------------------------------------------
'crear un objeto conexion
Set cnPrueba = New Connection
'Establecer sus propiedades
     With cnPrueba
        .Provider = "Microsoft.Jet.oledb.4.0"
        .ConnectionString = "prueba.mdb"
    End With
cnPrueba.Open
'------------------------------------------------------------------------------
Dim idprovincia As Long
idprovincia = 0
'------------------------------------------------------------------------------
'Crear un conjunto de registros desde la tabla Ciudad2
Set rsCiudad2 = New Recordset
'Establecer sus propiedades
With rsCiudad2
    .CursorLocation = adUseClient
    .Open "select idprovincias from provincias where provincias='" & Combo1.Text & "'", cnPrueba, adOpenDynamic, adLockOptimistic
End With
If Not rsCiudad2.EOF Then
    idprovincia = rsCiudad2.Fields(0)
End If
rsCiudad2.Close
rsCiudad2.Open "select * from ciudad2"
'------------------------------------------------------------------------------
'Añadimos los registros del formulario a la base de datos
 With rsCiudad2
.AddNew
.Fields("Ciudad") = Text1.Text
.Fields("idprovincia") = idprovincia
.Update
End With
MsgBox ("Datos Añadidos")
'------------------------------------------------------------------------------
'Refrescamos el formulario para que se borren los datos introducidos
With rsCiudad2
MSFlexGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
.Update
End With
'------------------------------------------------------------------------------
'Añadimos el formulario al msflexgrid
While Not rsCiudad2.EOF
MSFlexGrid1.AddItem rsCiudad2("idciudad") & vbTab & rsCiudad2("idprovincia") & vbTab & rsCiudad2("ciudad")
rsCiudad2.MoveNext
Wend
'------------------------------------------------------------------------------
'Insertamos la cabezera
MSFlexGrid1.TextMatrix(0, 0) = "idciudad"
MSFlexGrid1.TextMatrix(0, 1) = "idprovincia"
MSFlexGrid1.TextMatrix(0, 2) = "ciudad"
Screen.MousePointer = vbDefault
End Sub
 

saludos