lianjie.vb

人事管理系统

Imports Microsoft.VisualBasic
Imports System
Imports System.Web
Imports System.Reflection
Namespace lianjie1
    Public Class lianjie
        Public Function lianjie() As String
            Dim dcn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & HttpContext.Current.Server.MapPath("~/App_Data/db1.mdb")
            Return dcn
        End Function
    End Class
End Namespace