Buscar registros en base de datos access en visual basic 6

[UID]

bueno.. pues yo encontre este codigo en un programa que me pasaron..

Private Sub cmdAceptar_Click()
cSQL = ""
'Consulta por claves
If Opt1.Value = True Then
cSQL = cSQL & "select numpro,nompro,telpro from proveedores where numpro=" & Val(Txt1.Text)
rsConsulta.Open (cSQL)
End If

'Consulta por nombre
If Opt2.Value = True Then
cSQL = cSQL & "select numpro,nompro,telpro from proveedores where nompro=" & """" & Txt2.Text & """"
rsConsulta.Open (cSQL)
End If

'Consultar todos los registros
If Opt3.Value = True Then
cSQL = cSQL & "select numpro,nompro,telpro from proveedores"
rsConsulta.Open (cSQL)
End If

If rsConsulta.RecordCount = 0 Then
MsgBox "No hay registros en la base de datos con esa descripcion", vbExclamation, "Proveedores"
rsConsulta.Close
Exit Sub
End If

rsConsulta.MoveFirst
LimpiarGrid

While Not rsConsulta.EOF
GrdProv.AddItem Trim(rsConsulta!numpro) & vbTab & Trim(rsConsulta!nompro) & vbTab & Trim(rsConsulta!telpro)
rsConsulta.MoveNext
Wend
rsConsulta.Close

End Sub

espero te de una idea :D