Private Sub Form_Load()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID="";password="";Initial Catalog=CheckCredit;Data Source=Server"
cn.Open
      
 SQL = "select Name_Filial from dbo.View_Filials"
Set rs = New ADODB.Recordset
With rs
.Open SQL, cn, adOpenDynamic, adLockReadOnly
Do While Not rs.EOF
cmb_Filials.AddItem rs!Name_Filial
rs.MoveNext
Loop
.Close
End With

Set rs = Nothing
cn.Close
Set cn = Nothing
    
End Sub