BUSCARCLIENTEEjemplo
Ejemplo de búsqueda de cliente
Forma==8445==3030==3510==2805====$$-$$TextBox==2000==345==1125==750==TxtCliente====2$$-$$CommandButton==1725==690==1250==1625==aceptar==&Aceptar==0$$-$$Label==600==195==120==750==lblLabel0==Cliente==1$$-$$
         
'Public bolAceptar
Sub Form_load()
'José Félix 20140812 
'jofelchez@gmail.com
'Ejemplo de cómo hacer una consulta a la tabla de clientes
   TxtCliente.TabIndex = 0
    aceptar.Default = True

    'TxtCliente.PasswordChar = "*"
    'TxtCliente.BackColor = 0
    'TxtCliente.ForeColor = vbGreen
    'TxtCliente.font.size = 14

    Me.Caption = "Ejemplo de consulta a cliente"

	Set mc1 = Me.Controls.Add("DBMultiCombo.MultiCombo","mc1", Me)

	With mc1
		.Left				= TxtCliente.Left
		.Top				= TxtCliente.Top
		.Width				= TxtCliente.Width + 450
		.Height				= TxtCliente.Height

		Set .Connection		= Ambiente.Connection
		Set .txtObject		= TxtCliente
		.Buscar				= "Clientes"
		.Visible			= True
		
		Set TxtCliente.Container = mc1
	End With
           
End Sub

Sub Button_Click()
    Dim cUsuario 
    Dim cPassword
    Dim nPos
    Dim s
	
    If ControlEvento.Tag = "cancelar" Then
       bolAceptar = False
       DescargaForma
       Exit Sub
    End If

    'consulta a la base de datos
    Set rstCliente = CreaRecordSet( _
	"SELECT * FROM clients WHERE cliente = '" & TxtCliente & "'", _
    Ambiente.Connection )                     

    'En caso de que no se encuentre el usuario envía mensaje de error
    If rstCliente.EOF Then
       'Progress.Destroy
       MyMessage "Error:" & vbCrLf & "No existe el cliente indicado"       
	   EstableceFoco	   
       Exit Sub
    End If                                   	
	mymessage " Cliente: " & rstCliente("cliente") & vbCrLf & " Nombre: " & rstCliente("nombre")

End Sub

Sub EstableceFoco()
    TxtCliente.Setfocus
    TxtCliente.SelStart = 0
    TxtCliente.SelLength = Len( TxtCliente )
End Sub

Sub Text_KeyUp()
'Este bloque permite responder a una tecla
	'En caso de <Flecha abajo>  
    If KeyCode = 40 Then
       Select Case ControlEvento.Tag

              Case "TxtCliente"
                   TxtCliente.Container.ShowData  
       End Select          
    End If                
	'en caso de <Esc>
	If KeyCode = 27 Then
  		DescargaForma     
		'Exit Sub
    End If
 
End Sub