Kak sowetowali sdelal. No ne poluchaetsya.

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

Do stroki "Set Dbcombo1.Rowsource=ado" dohodit i wydaet soobshenie:

Run -Time Error '91'
Object variable or with block variable not set