como están como les va
mi problema es el siguiente
quisiera saber como usar combo box anidados así:
estoy haciendo una aplicación para administrar una discotienda y en la parte de ventas tengo 3 combo box asociados a una base de datos creada en access con sus respectivas relaciones
los 3 combos son así. el primer combo muestra la categoría: CD DVD BLU RAY
el segundo combo Genero: THRASH METAL DEATH METAL y el tercer combo Artista: METALLICA SLAYER POSSESSED
quisiera saber como filtrar los datos que si selecciono la categoría cd me muestre en el siguiente combo los géneros que tiene esa categoría y al seleccionar ese genero en el tercer combo muestre los artistas del genero
como digo las relaciones en access están hechas de ese modo
por favor si alguien me puede ayudar pero por favor usando data environment no uso ni ado ni dao solo data environment gracias por su atención

Buenas tardes,

Estoy intentando programar una modificacion en una base de datos. Me tira un error : "Error "13" en tiempo de ejecucion: no coinciden los tipos. Lo marca en: Set DBPac.DataSource = FrmPrin.AdoPac.. QUE PUEDE SER?? Gracias por su colaboracion

Private Sub Form_Load()
DBPac = ""
Set DBPac.DataSource = FrmPrin.AdoPac
Set DBPac.RowSource = FrmPrin.AdoPac
DBPac.ListField = "Apellido"
DBPac.BoundColumn = "Id_pac"
FrmPrin.AdoPac.Refresh

Detalle de la programacion:

Private Sub cmdmodificar_Click()

FrmPrin.AdoPac.Recordset.Fields("Nombre") = txtnombre.Text
FrmPrin.AdoPac.Recordset.Fields("Apellido") = txtapellido.Text
FrmPrin.AdoPac.Recordset.Fields("Domicilio") = txtdomicilio.Text
FrmPrin.AdoPac.Recordset.Fields("Telefono") = txttelefono.Text
FrmPrin.AdoPac.Recordset.Fields("Observaciones") = txtobservaciones.Text

FrmPrin.AdoPac.Recordset.Update

dcpacientes.Text = ""
txtpaciente.Text = ""
txtnombre.Text = ""
txtapellido.Text = ""
txtdomicilio.Text = ""
txttelefono.Text = ""
txtobservaciones.Text = ""

FrmPrin.AdoPac.Refresh

End Sub

Private Sub dcpacientes_Click(Area As Integer)
If Not dcpacientes.Text = "" Then
FrmPrin.AdoPac.Recordset.MoveFirst
FrmPrin.AdoPac.Recordset.Find ("Id_pacientes=") & Val(dcpacientes.BoundText)
If Not (FrmPrin.AdoPac.Recordset.EOF) Then
txtpaciente.Text = FrmPrin.AdoPac.Recordset.Fields("Id_pacientes")
txtnombre.Text = FrmPrin.AdoPac.Recordset.Fields("Nombre")
txtapellido.Text = FrmPrin.AdoPac.Recordset.Fields("Apellido")
txtdomicilio.Text = FrmPrin.AdoPac.Recordset.Fields("Domicilio")
txttelefono.Text = FrmPrin.AdoPac.Recordset.Fields("Telefono")
txtobservaciones.Text = FrmPrin.AdoPac.Recordset.Fields("Observaciones")
Else
MsgBox "no se encontro registro...!", vbOKOnly, "atencion!"
End If
End If
End Sub

Private Sub Form_Load()
dcpacientes = ""
Set dcpacientes.DataSource = FrmPrin.AdoPac
Set dcpacientes.RowSource = FrmPrin.AdoPac
dcpacientes.ListField = "apellido"
dcpacientes.BoundColumn = "id_pacientes"

FrmPrin.AdoPac.Refresh
End Sub