Combo box list does not show up after connecting database

See more:

VB6

Public Sub UserForm_Initialize()
On Error GoTo UserForm_Initialize_Err
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.Open("Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Application.StartupPath & "\Attendance.mdb")
rst.Open("SELECT DISTINCT Department FROM Attendance;")
cnn.adOpenStatic()

rst.MoveFirst()

With Me.ComboBox1
.Items.Clear()

Do

.Items.Add(rst![Departments])
rst.MoveNext()
Loop Until rst.EOF
End With
UserForm_Initialize_Exit:
On Error Resume Next
rst.Close()
cnn.Close()
rst = Nothing
cnn = Nothing
Exit Sub
UserForm_Initialize_Err:
MsgBox(Err.Number & vbCrLf & Err.Description, vbCritical, "Error!")
Resume UserForm_Initialize_Exit

What I have tried:

.Items.Add(rst![Departments])
changed this .Items.Add(rst.fields())