Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
     If conn.State = 1 Then
        conn.Close
    End If
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=" & App.Path & "\111.mdb;" & _
                    "Persist Security Info=False"
    conn.Open
End Sub
6 结论
经过几个月对员工信息管理系统软件的设计和开发已经基本设计完成。本系统具备员工基本信息、考勤情况和薪资的查询、添加、修改、删除以及各类数据信息的统计、报表等功能，基本具备了一个员工管理系统的需求。从熟悉员工信息管理流程，到熟悉数据库进行表格的创建以及用Visual Basic设计员工信息管理系统，我了解到了许多相关的知识，从一开始对数据库一无所知甚至无法分辨都有什么数据库类型，到现在利用ACCESS数据库完成了软件的后台数据支持；从原先仅仅了解几个基本控件的VB到如今用它设计出了一个简单的员工信息管理系统可谓收获颇多，我觉得这对我们来说是一个难得的学习机会。
由于知识和经验的局限，该系统还是有许多值得改进的地方，比如人性化设计和联机方面还是相对欠缺的，在之后还是有待改善。通过这次是毕业设计，让我了解到一个系统软件的成功需要设计人员要有严密的思文，要提前考虑到所有的可能性才能使得软件的最终的实用性得到最好的发挥。同时编程时候的逻辑性和细心也十分的关键，每一句语句都有其关键作用，所以在设计开发软件的过程中都需要高度的集中，我想这一经历对今后的成长路也是十分必要的。 VB+access员工信息管理系统设计与实现(19):http://www.751com.cn/jisuanji/lunwen_1399.html