merhaba,

aşağıdaki kod örneğini kendi uygulamanıza uyarlayıp denemek ister misiniz.teşekkürler.

Dim conn As New ADODB.Connection
Dim rsCommand8 As New ADODB.Recordset
Set conn = DBEngine.OpenDatabase(App.Path & "\veritabaniadi.mdb")
Set rsCommand8 = conn.OpenRecordset("tabloadi")

If rsCommand8.RecordCount > 0 Then
Do While Not rsCommand8.EOF
With Combo1
.AddItem rsCommand8.Fields("alanadi")
End With
.MoveNext
Loop
End If

iyi çalışmalar,
saygılar.