Hola!!!



Como veras no indicas



1) no indicas que base de datos usas, tal vez pienses para que se las digo, respuesta: para que no esten adivinando o me den una conexion que no me sirva, pero bueno te mando una para access, si usas otra, oops la hubiera dicho.

2) el nombre de la tabla, tal vez pienses para que se las digo, facil para que te den la respuesta bien definida y no select * from [nombre de la tabla], pero en fin te mando una consulta

3) no dices en que onjeto se mostraran los datos

4) no dices que campos se mostraran

Access:



Dim conexion As New ADODB.Connection

Dim rst As New ADODB.Recordset

conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Datos\elguille.mdb" & ";" 'Server.MapPath("datos\elguille.mdb")

conexion.Open

Dim s As String

s = "SELECT * FROM [nombre de la tabla] where estado = 'D.F.' or estado = 'Distrito Federal' or estado = 'DF'"

rst = Cnn.Execute(s)

If rst.State = 1 Then

If Not rst.EOF Then

For i = 1 To rst.RecordCount

MSHFlexGrid1.AddItem Chr(9) + Str(rst(0)) + Chr(9) + rst(1)

rst.MoveNext

Next

End If

End If

MsgBox "No hay registros"



Saludos cordiales

Como mo indicas el tipo de base de datos, imagino que esa parte ya la tienes definida, por lo que solo pondre el ejemplo de como realizar la consulta...



'Declara una variable String para poder cargar a ella la consulta

Dim Vg_sSQL as String



'Esta linea lo que hace es armar tu consulta poniendo como filtro del campo Estado en la DB lo que se selecciono por ejemplo en un combo (puede ser cualquier otro control)

Vg_sSQL = "SELECT * FROM [TABLA] WHERE ltrim(rtrim(ESTADO)) = '" & TRIM(combobox.text) & "' "

'Crea la instancia del objeto recordset

Set rs = New ADODB.Recordset

'apertura de la instancia

rs.open Vg_sSQL, Conecion,DB, tipo_apertura, tipo_bloqueo



'Hasta este punto ya tienes cargado en tu recordset todos los campos de tu tabla con el filtro especifico del estado.

tenes que definir una variable de tipo string donde vas a almacenar el texto de la consulta,

A continuacion un ejemplo.



dim strSQL as string

strSQL = ("SELECT * FROM [TABLA]")

docmd.setwarnings false

docmd.runSQL strSQL