Работа с базами Access(выбор информации)

Private Sub UserForm_Initialize()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String, cmd As String, qwe As String
Dim asd As Integer
cmd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\InOut\Etal.mdb;"
sql = "select Contaktor.Current from Contaktor"
Set cn = New ADODB.Connection
With cn
    .ConnectionString = cmd
    .Open
    Set rs = New ADODB.Recordset
With rs
    .Open sql, cmd, adOpenDynamic, adLockReadOnly
    Do While Not .EOF
            asd = rs!Current
            qwe = CStr(asd)
            ComboBox1.AddItem qwe
           .MoveNext
    Loop
            .Close
            End With
            Set rs = Nothing
    .Close
    End With
Set cn = Nothing
End Sub

Private Sub UserForm_Initialize()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
sql = "SELECT Current FROM Contactor"
Set con = New ADODB.Connection
With con
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open "D:\InOut\Etal.mdb"
End With
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open Source:=sql, ActiveConnection:=con, CursorType:=adOpenForwardOnly, LockType:=adLockOptimistic, Options:=adCmdText
Dim myVar()
Dim i
myVar = rs.GetRows
For i = 0 To UBound(myVar, 2)
ComboBox1.AddItem myVar(0, i)
Next
UserForm2.Show
rs.Close
con.Close
End Sub