Busqueda por parametros en tablas

[neivan]

Dim ds As DataSet
Dim strSql As String
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter

strSql = " SELECT Agencia.Identificador as Agencia, Agencia.Direccion as Direccion, Agencia.Telefono as Telefono, Agencia.Cajero_Automatico as Cajero_Automatico, Estado.Nombre_Estado as Estado, Ciudad.Nombre_Ciudad as Ciudad, Ubicacion.Descripcion as Ubicación From Agencia, Estado, Ciudad, Ubicacion "
strSql += " WHERE Agencia.EstadoID=Estado.EstadoID"
strSql += " AND Agencia.CiudadID=Ciudad.CiudadID"
strSql += " AND Agencia.UbicacionID=Ubicacion.UbicacionID"
strSql += " AND Agencia.EstadoID=" &DropDownList1.SelectedItem.Value
strSql += " AND Agencia.CiudadID=" &DropDownList2.SelectedItem.Value
strSql += " AND Agencia.UbicacionID=" &DropDownList3.SelectedItem.Value

For j = 0 To checkboxlist.Items.Count - 1
If checkboxlist.Items(j).Selected Then
' Entra si esta seleccionado
strSql +=""
end if
Next

el tema esta en que en este ultimo strSql hay que meter la parte correspondiente a cada servicio
Te pedi que me pusieras como estaba organizada tu bd pa saber si por ejemplo una agencia tendra tantos registros como servicios por ejemplo o pa saber como lo tienes organizado,si es asi
For j = 0 To checkboxlist.Items.Count - 1
If checkboxlist.Items(j).Selected Then
strSql +="And Agencia.Identificador in (select Identificador from"& _ "agencia where servicio =" & checkboxlist.Items(j).text)"
end if
Next

Asi cada cod.identificador es decir cada agencia tiene q tener todos los servicios q estan seleciondor
.....
Haber si con esto ya lo solucionamos