Hola Amigo
Tengo compuesto el Codigo del Boton Así:
Código PHP:
Private Sub Command1_Click()
sql = "select Nombre,Telefono,Fax,Email,Direccion from Directorio where Nombre=" & txtNombre.Text
Set rs = cn.Execute(sql = "select.... where Nombre like %'" & txtNombre.Text & "'%")
If IsNull(rs(0)) Then
MsgBox "No Existe el registro"
Else
txtNombre.Text = rs!Nombre o tambien rs(1)
End If
End Sub
Esta bien ??
Saludos