помогите найти ошибку в VBA excel

Question

Private Sub Combo2_Change() 
cmd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ActiveWorkbook.Path & "\Laba5var13.mdb;Persist Security Info=False;" 
Set cn = New ADODB.Connection 
cn.ConnectionString = cmd 
cn.Open 
Set rs = New ADODB.Recordset 
sql6 = "Select Cell from Отгрузки where izd= " & Combo2.Value & ";" 
rs.Open sql6, cn 
Lab7.Caption = rs.Fields(0) 
 rs.Close 
cn.Close 
End Sub

Амина Алипханова · Accepted Answer

к сожалению вы не написали текст ошибки. 
<img src="//otvet.imgsmail.ru/download/df79e4e30c5c5714a957362ed63ed09d_i-458.jpg" > 
 
на этой картинке видно что он ругает ADODB 
и вам надо описать библиотеку где этот тип описывается, вам об этом на занятиях рассказывали