Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Form_Load()
Dim cmd As String
Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
cdm = "Provider=microsoft.jet.OLEDB.3.51;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Bibilio.mdb"
Set cn = New ADODB.Connection
With cn
.ConnectionString = cmd
.Open
End With
sql = "select * from authors"
Set rs = New ADODB.Recordset
With rs
.Open sql, cn, adOpenForwardOnly, adLockReadOnly
Do While Not rs.EOF
lstAuthors.AddItem rs("Author")
rs.MoveNext
Loop
.Close
End With
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

Добросовестно переписал этот код из книги, а он не работает.
Пишет: [Microsoft][Диспетчер драйверов ODBC] Источник данных не найден и не указан драйвер, и нее указан драйвер, используемый по умолчанию.

Помогите разрешить проблему.