ComboBox füllen mir ADO
30.03.2009 15:24:31
Edie
in die Spalte A wird die Spalte1 via ADO eingelesen.
Nun versuche ich vergebens die gleiche Spalte1 aus Test.mdb in
Die ComboBox1 einzulesen. Funktioniert bis dato nicht.
Private Sub UserForm_Activate()
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim sPath As String
sPath = ThisWorkbook.Path & "\Test.mdb"
Cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
Cnn.Open sPath
Rs.Open "Spalte1", Cnn, adOpenStatic, adLockOptimistic
Do While Rs.EOF = False
Index = Index + 1
ComboBox1 = Rs!Spalte1
Rem Cells(Index, 1) = Rs!Spalte1
Rs.MoveNext
Loop
End Sub
Hat jemand eine Idee wie man eine ComboBox füllt?
Einlesen in die Spalte A funktioniert: Rem Cells(Index, 1) = Rs!Spalte1
Vorab vielen Dank.
Grüße