problemas con los botones de opcion

[waldobh]

hola amigos espero que me entiendan el problema y se que me ayudaran
bueno tengo 3 opciones de busqueda por codigo, fecha y nuemro de tienda, deseo tener una consulta de cada una de ellas...estuve realziando el siguiente codigo por la cual me resulta solo con la primera opcion , con el resto em sale en blanco.


Private Sub cmdbuscar_Click()

Select Case opcion

Case 0
Set rs = cn.Execute("SELECT salida_almacen.IDTIENDA, salida_almacen.IDPRODUCTO, salida_almacen.DESCRIPCION, salida_almacen.MODELO, salida_almacen.COLOR, salida_almacen.TALLAS, salida_almacen.CANTIDAD, salida_almacen.FECHA, salida_almacen.TIENDA_DESTINO, salida_almacen.PRECIO FROM salida_almacen where salida_almacen.fecha= '" & maskfecha.Text & "' ")
Set dat_repostock.DataSource = rs

Case 1

Set rs = cn.Execute("SELECT salida_almacen.IDTIENDA, salida_almacen.IDPRODUCTO, salida_almacen.DESCRIPCION, salida_almacen.MODELO, salida_almacen.COLOR, salida_almacen.TALLAS, salida_almacen.CANTIDAD, salida_almacen.FECHA, salida_almacen.TIENDA_DESTINO, salida_almacen.PRECIO FROM salida_almacen where salida_almacen.IDPRODUCTO= '" & txtcodigo.Text & "' ")
Set dat_repostock.DataSource = rs

Case 2

Set rs = cn.Execute("SELECT salida_almacen.IDTIENDA, salida_almacen.IDPRODUCTO, salida_almacen.DESCRIPCION, salida_almacen.MODELO, salida_almacen.COLOR, salida_almacen.TALLAS, salida_almacen.CANTIDAD, salida_almacen.FECHA, salida_almacen.TIENDA_DESTINO, salida_almacen.PRECIO FROM salida_almacen where salida_almacen.tienda_destino= '" & cmbtienda.Text & "' ")
Set dat_repostock.DataSource = rs


End Select

dat_repostock.Refresh
End Sub
***********************************
End Sub
Private Sub Option2_Click(Index As Integer)
opcion = Index
Select Case Index
Case 0
maskfecha.Enabled = True
cmbtienda.Enabled = False
txtcodigo.Enabled = False

Case 1
maskfecha.Enabled = False
cmbtienda.Enabled = False
txtcodigo.Enabled = True

Case 2
maskfecha.Enabled = False
cmbtienda.Enabled = True
txtcodigo.Enabled = False

End Select
End Sub

por favor en que estoy fallando y que debo de tomar en cuenta al trabaja r con botones de opcion..Gracias!!!!!!!!!11 hasta pronto

[vbx3m]

Probe tu codigo y me funciono a medias... Luego use este otro codigo (muy parecido solo que con un Adodc) y me funciono bien...

CRITERIO = "SELECT salida_almacen.IDTIENDA, salida_almacen.IDPRODUCTO, salida_almacen.DESCRIPCION, salida_almacen.MODELO, salida_almacen.COLOR, salida_almacen.TALLAS, salida_almacen.CANTIDAD, salida_almacen.FECHA, salida_almacen.TIENDA_DESTINO, salida_almacen.PRECIO FROM salida_almacen WHERE (salida_almacen.fecha= '" & maskfecha.Text & "' ")
Adodc1.RecordSource = CRITERIO
adodc1.Refresh

Asi lo hice con las demas consultas. La verdad es que es muy parecido el codigo... Y con los optionButton me funciono...