rellenar datagrid con condicion

[txetxo]

Hola

Quisiera rellenar un datagrid con unos datos concretos de una B.D, solo si se cumple una condicion. Pongo la propiedad datasource del datagrid = adodc1 al cargar el formulario, pero con esto lo que consigo es rellenar el datagrid con todos los datos de la B.D. y no es lo que kiero.

¿Alguien me puede ayudar?

Gracias de antemano.

[jc_moty]

Porque no probas asi:

Código:

Adodc1.RecordSource = "SELECT * FROM tabla WHERE campo = '" & txtvalor & "'"
Adodc1.Refresh

Claro que para que esto funcione la propiedad CommandType del Adodc debe ser adCmdText ó adCmdUnknown(recomendado).

Espero te sirva
Saludos

[aldo1982]

var = text1.text
If VAR <> "" Then
Socio.RecordSource = "select * from tabla where campo like '" & VAR & "%'"
Socio.Refresh

'si no hay registros encontrados
If Socio.Recordset.EOF Then
MsgBox "No se encontraron resultados", vbOKOnly, "Error"
Socio.RecordSource = "select * from tabla"
End If

End If