consulta sql

[shin18]

Private Sub cmdbuscar_Click()
rsemp.Close
rsciu.Close
rsprov.Close
rsemp.Open "SELECT * FROM empleados WHERE nombre = '" & txtbuscnom.Text & "'", dbemp
rsciu.Open "SELECT nom-ciudad FROM ciudades WHERE ciudades.id-ciudad = empleados.id-ciudad", dbciu
If Not (rsemp.EOF And rsemp.BOF) Then
Registros.txtnombre.Text = rsemp.Fields("nombre")
Registros.txtapellido.Text = rsemp.Fields("apellido")
Registros.txtdni.Text = rsemp.Fields("dni")
Registros.txtdireccion.Text = rsemp.Fields("direccion")
Registros.cmbciudad = rsciu.Fields("nom-ciudad")
Registros.txttelefono.Text = rsemp.Fields("telefono-fijo")
Registros.txtcelular.Text = rsemp.Fields("celular")
Registros.txtfechanac.Text = rsemp.Fields("fecha-nac")
Registros.txtestadociv.Text = rsemp.Fields("estado-civil")
Registros.txthijos.Text = rsemp.Fields("hijos")
Registros.txtfechaingreso.Text = rsemp.Fields("fecha-ingreso")
txtbuscnom.Text = ""
buscnom.Hide
Unload buscnom
Load Registros
Registros.Show
Registros.SetFocus
Else
MsgBox "No se encontró registro", vbOKOnly, "Fallo en la busqueda"
End If
End Sub

eso es lo q hace cuando se apreta el boton buscar

Private Sub Form_Load()
Set dbemp = New Connection
Set rsemp = New Recordset
Set rsciu = New Recordset
Set rsprov = New Recordset

pathDBemp = App.Path & "\prueba.mdb"

dbemp.Open = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & pathDBemp & ";"

rsemp.Source = "empleados"
rsciu.Source = "ciudades"
rsprov.Source = "provincias"

rsemp.CursorType = adOpenDynamic
rsemp.LockType = adLockOptimistic
rsciu.CursorType = adOpenDynamic
rsciu.LockType = adLockOptimistic
rsprov.CursorType = adOpenDynamic
rsprov.LockType = adLockOptimistic

rsemp.Open "select * from Empleados", dbemp
rsciu.Open "select * from ciudades", dbemp
rsprov.Open "select * from provincias", dbemp
End Sub

y eso es cuando carga el formulario


PD: Aclaro, q tengo 3 tablas Empleados, Ciudades y provincias, yo solo pedi ayuda con la de ciudades porq despues para la otra es lo mismo, y tambien tengo mas campos en empleados solo que puse un par nada mas para no hacerlo tan largo ya q no son de importancia los otros