Merhaba,
Excel usreformunda,
Formun başında;
Kod:
Public dbs As DAO.Database
Public dst As DAO.Recordset
Public veriyolu As String
İnıtalize bölümünde;
[code]Dim al
veriyolu = ThisWorkbook.Path
Set dbs = OpenDatabase(veriyolu & "\deneme.mdb")
Set dst = dbs.OpenRecordset("select Burono from listeSorgu order by Burono")
If dst.RecordCount < 1 Then
MsgBox "veri yok"
Exit Sub
End If
dst.MoveLast
dst.MoveFirst
For al = 1 To dst.RecordCount
ComboBox6.AddItem dst("