completar combobox desde tabla en sql server

[pepe1970]

hola tengo un formulario en excel vba que se completa con datos de una tabla que esta en un servidor sql.  en el formulario tengo dos combobox los cuales se deberian completar con datos de una tabla del servidor.  necesito que al  llenar  el primer combobox el segundo se active y se complete con datos de otras de las columnas de las tablas, y a su vez este haga que se completen una serie de textbox del mismo formulario .  no se como hacerlo.

Asi hago la conexion  al servidor desde el combobox a una secuencia en el modulo

Private Sub ComboBox1_Change()
Dim SQL As String
Dim Connected As Boolean
Dim Rs As ADODB.Recordset
     
     
     SQL = "select * from clientes where cliente='" & (ComboBox1) & "' order by cliente"
    
    Connected = Connect("10.0.0.145", "usuario1", "123456", "administracion")
 
    If Connected Then
        
        Call Query5(SQL)
        Call Disconnect
    Else
        
        MsgBox "Could Not Connect!"

 

esta secuencia esta en el modulo

Function Connect(Server As String, User As String, Pass As String, Database As String) As Boolean
 
    Set CN = New ADODB.Connection
    On Error Resume Next
 
    With CN
       
        .ConnectionString = "Provider=SQLOLEDB.1;" & _
                            "Password=" & Pass & ";" & _
                            "Persist Security Info=True;" & _
                            "User ID=" & User & ";" & _
                            "Initial Catalog=" & Database & ";" & _
                            "Data Source=" & Server
       
        .Open
    End With
    
    If CN.State = 0 Then
        Connect = False
    Else
        Connect = True
    End If
 
End Function

 

 

 

 

 

 

    End If
End Sub