insertar y añadir

[Sergio18]

Lo acabo de terminar de hacer ahora mismo, lo que e echo a sido declarar una variable y rellenarla con datos, y despues una consulta que me indique el id de la provincia que ponga:

Código vb:

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")
 

Saludos y Gracias por contestar