Private Sub UserForm_Initialize()

 

    Dim cnt As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim stDB As String, stConn As String, stSQL As String
    Dim xlCalc As XlCalculation
    Dim vaData As Variant
    Dim k As Long
     
    Set cnt = New ADODB.Connection
     
    stConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=sap_data;Data Source=DB-77716EFB0313\SQLEXPRESS"
     
    cnt.ConnectionString = stConn
     
     'your  SQL statement
    stSQL = "SELECT Region FROM Region_Mapping"
    
   
     
    With cnt
        .CursorLocation = adUseClient 'Necesary for creating disconnected recordset.
        .Open stConn 'Open connection.
         'Instantiate the Recordsetobject and execute the SQL-state.
        Set rst = .Execute(stSQL)
    End With
     
    With rst
        Set .ActiveConnection = Nothing 'Disconnect the recordset.
        k = .Fields.Count
         'Populate the  array with the whole recordset.
        vaData = .GetRows
    End With
     
     'Close the connection.
    cnt.Close
     
     'Manipulate the Combobox's  properties and show the form.
    With frmdata
        With .ComboBox1
            .Clear
            .BoundColumn = k
            .List = Application.Transpose(vaData)
            .ListIndex = -1
        End With
        
    End With
     
     'Release objects from memory.
    Set rst = Nothing
    Set cnt = Nothing


End Sub

SELECT DISTINCT CONVERT(VARCHAR(MAX), Region) FROM Region_Mapping