Private Sub Command1_Click()
 Dim mycnn As New ADODB.Connection
 Dim myrecord As New ADODB.Recordset
 mycnn.Provider = "microsoft jet oledb.4.0"
 mycnn.ConnectionString = "E:\学生.mdb"
 mycnn.Open
 myrecord.Open "学生信息", mycnn, dbopendynamic, adLockOptimistic
 myrecord.AddNew
 myrecord.Fields("姓名").Value = "张三"
 myrecord.Fields("性别").Value = "男"
 myrecord.Fields("地址").Value = "湖南永州市"
 myrecord.Update
 myrecord.Close
 mycnn.Close
End Sub

提示实时错误“3706”（黄线停在mycnn上）未找到提供程序，该程序可能未正确安装。错在哪？