Option Explicit
Dim Cninput As ADODB.Connection
Dim adoPrimaryRS As ADODB.Recordset
Public LoginSucceeded As Boolean

Private Sub Form_Load()
Dim Sql As String, jo As String
Set adoPrimaryRS = New ADODB.Recordset
Set Cninput = New ADODB.Connection
If Cninput.State =  1  Then Cninput.Close
jo = App.Path + "\Data\Registration.mdb"
Cninput.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + jo + ";Persist Security Info=False"
Cninput.CursorLocation = adUseClient
Cninput.Open
Sql = "select username from users order by username"
If adoPrimaryRS.State =  1  Then adoPrimaryRS.Close
adoPrimaryRS.Open Sql, Cninput, adOpenStatic, adLockOptimistic
Set Combo1.DataSource = adoPrimaryRS
End Sub

Private Sub Form_Load()
On Error GoTo err_ms
Dim Jo As String, sql_str As String
Dim conn1 As adodb.Connection
Dim adoPrimaryRS As adodb.Recordset

Set conn1 = New adodb.Connection
Set adoPrimaryRS = New adodb.Recordset
Jo = App.Path + "\data\USER.DBF"
sql_str = "PROVIDER=MSDASQL;dsn=Файлы dBASE;uid=;pwd=;database=" + Jo + ";"
conn1.Open sql_str
adoPrimaryRS.Open "select USERNAME from USER", conn1, adOpenStatic, adLockOptimistic
Set Combo1.DataSource = adoPrimaryRS
Exit Sub
err_ms:
MsgBox Err.Description
End Sub