Mi Form esta compuesto por el Siguiente Codifgo:
Código PHP:
Dim cn As New adodb.Connection
Dim rs As New adodb.Recordset
Dim sql As String
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