运行vb编写程序时出错 [ODBC驱动程序管理器]未发现数据源名称并且未指定默认驱动程序

我是菜鸟，根据书上提供的代码写的，总觉得与数据库连接那一块有问题请高手帮忙
具体代码如下：
Private Sub Form_Load()

Combo1.AddItem ("男")
Combo1.AddItem ("女")
Combo1.ListIndex = 0
Combo2.AddItem ("汉族")
Combo2.AddItem ("回族")
Combo2.AddItem ("满族")
Combo2.AddItem ("蒙古族")
Combo2.AddItem ("朝鲜族")
Combo2.AddItem ("藏族")
Combo2.AddItem ("其他")
Combo2.ListIndex = 0
Combo3.AddItem ("已婚")
Combo3.AddItem ("未婚")
Combo3.ListIndex = 0
Combo4.AddItem ("党员")
Combo4.AddItem ("团员")
Combo4.AddItem ("群众")
Combo4.ListIndex = 0
Combo5.AddItem ("硕士")
Combo5.AddItem ("本科")
Combo5.AddItem ("大专")
Combo5.AddItem ("中专")
Combo5.AddItem ("高中")
Combo5.AddItem ("初中")
Combo5.AddItem ("小学")
Combo5.ListIndex = 0
Combo6.AddItem ("董事长")
Combo6.AddItem ("总经理")
Combo6.AddItem ("副总经理")
Combo6.AddItem ("部门经理")
Combo6.AddItem ("无")
Combo6.ListIndex = 0
Combo7.AddItem ("高级")
Combo7.AddItem ("中级")
Combo7.AddItem ("初级")
Combo7.AddItem ("无")
Combo7.ListIndex = 0

If blnAddRS = True Then
Me.Caption = "添加员工信息"
rs1.Open "select* from 员工信息表 order by 编号", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
rs1.MoveLast
Txt1(0) = Format(Val(rs1.Fields("编号")) + 1, "00000")
Else
Txt1(0) = "00001"
End If
rs1.Close

Else
Me.Caption = "修改员工信息"

With main_yggl_addmodify.Adodc1.Recordset
rs1.Open "select* from 员工信息表 order by 编号", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
Txt1(0) = .Fields("编号")
Txt1(1) = .Fields("姓名")
Combo1.Text = .Fields("性别")
Txt1(2) = .Fields("身份证号")
DTP1.Value = .Fields("出生年月")
Txt1(3) = .Fields("年龄")
Combo2 = .Fields("民族")
Combo3 = .Fields("婚姻状况")
Combo4 = .Fields("政治面貌")
DTP2.Value = .Fields("入党团时间")
Txt1(4) = .Fields("籍贯")
Txt1(13) = .Fields("联系电话")
Txt1(5) = .Fields("手机号码")
Txt1(6) = .Fields("家庭地址")
Txt1(7) = .Fields("毕业院校")
Txt1(8) = .Fields("专业")
Combo5 = .Fields("最高学历")
Txt1(9) = .Fields("特长")
DTP3.Value = .Fields("参加工作时间")
Txt1(10) = .Fields("总工龄")
Set PicPhoto.DataSource = main_yggl_addmodify.Adodc1
PicPhoto.DataField = "照片"
If .Fields("照片") Is Nothing Then
PicPhoto.Picture = LoadPicture()
End If
DataCombo1 = .Fields("部门")
Combo6 = .Fields("职务")
Combo7 = .Fields("职称")
Txt1(11) = .Fields("基本工资")
DTP4.Value = .Fields("入职时间")
Txt1(12) = .Fields("本单位工龄")
End If
End With
End If

End Sub

添加
Public Function cnn() As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open "Driver={SQL Sever};Sever=(local);Database=db_manmanage;Uid=sa;pwd="
End Function
后 提示错误还是相同的 调试后错误语句是cnn.Open "Driver={SQL Sever};Sever=(local);Database=db_manmanage;Uid=sa;pwd="
不知道怎么改 麻烦指点

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
sDbFile="C:\MyDatabase.MDB" '这里是数据库名称
cnn.ConnectionString = "Provider=MicroSoft.jet.Oledb.4.0; data source=" & sDbFile
cnn.Open