SoloCodigo

Hola.. les planteo mi duda, ojalá puedan orientarme.

Tengo un datalist en el cual muestro distintas ciudades y pretendo  que al hacer click sobre una ciudad me muestre toda la información referente a esta.
El datalist ya esta conectado correctamente con la Bd.
Mi problema es que no se de que forma mover el recordset.. Este siempre apunta en la primera posición del datalist. las flechas del teclado no permiten apuntar a otras ciudades.. Sin embargo con el mouse si puedo ver otras ciudades porqeu de alguna manera forzo al recordset.
Pero sé que lo que hago no está bien hecho, me pueden ayudar.


Al cargar el formulario manda llamar listado 'muestra las ciudades en el Datalist
Public Sub Listado()
    Dim Sql As String
   
    Sql = "Select Director, gerente"
    Sql = Sql & ", direccion, Colonia "
    Sql = Sql & ",Cp, Ciudad, Estado from Plaza order by ciudad"
   
    If Rs.State <> adStateClosed Then
        Rs.Close
    End If
   
    Rs.CursorLocation = adUseClient
   
    Rs.Open Sql, Cn, adOpenStatic
   
    Set DataList1.RowSource = Rs
    DataList1.ListField = "Ciudad"
    DataList1.BoundColumn = "Ciudad"
End Sub

Private Sub DataList1_Click()
   
    Dim Sql As String
    ciudad = DataList1.Text
     
    Sql = "Select * From Plaza Where Ciudad= '" & ciudad & "'"
    If Rs.State <> adStateClosed Then
        Rs.Close
    End If
    Rs.CursorLocation = adUseClient
    Rs.Open Sql, Cn, adOpenStatic
   
    TxtDirector.Text = Rs!Director
    TxtCiudad.Text = Rs!ciudad
     ...............
    TxtEstado.Text = Rs!estado
    Rs.Close
    ListarPlazas
End Sub

Tienen idea de que puedo hacer.. Gracias por leerme..

Hola..

Espero me puedan ayudar tengo una aplicación en VB en el cual con un Recordset selecciono un registro y lo visualizo en un Datagrid.

Mi problema es que la sentencia me marca un error de "No se han especificado valores para alguno de los parámetros requeridos"

La sentencia es  
Sql = "Select * From Estacion Where Siglas = " & Siglas
Y el error lo marca en    
R.Open Sql, Cn, adOpenStatic

Para intentar resolver esto he puesto insepecciones en la sentencia anterior es decir en Sql. y el resultado de la insepección es bueno cambia a verdadero el paso de parámetros por referencia si es el correcto hasta ese punto.
Mi pregunta es hay alguna forma de evaluar la sentencia R.Open Sql, Cn, adOpenStatic

Gracias