Sdelal kak otwetili.Opyat wyhodit soobshenie:Object variable or with block variable
not set.

Private Sub Form_Load()
Dim ado As Recordset
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=p;uid=;pwd=;"
Set ado = New Recordset
ado.Open "select imya from Polzowateli", db, adOpenStatic, adLockOptimistic
Set DBCombo1.RowSource = ado
DBCombo1.ListField = "imya"
End Sub

Oshibka woznikaet w stroke:Set DBCombo1.RowSource = ado