Boton De Buscar Bd En Vb6 Ayudaaaa ¡¡¡LEELO

[GeoAvila]

un leve error de copy and paste...

Código:

Private Sub Command1_Click() 
dim cn as new adodb.connection
dim rs as new adodb.recordset
dim sql as string
sql = "select Nombre,Telefono,Fax,Email,Direccion from Directorio where Nombre like %'" & txtNombre.Text & "'%"
Set rs = cn.Execute(sql) 
If IsNull(rs(0)) Then 
MsgBox "No Existe el registro" 
Else 
txtNombre.Text = rs!Nombre ' o tambien rs(1) 
End If 
end sub