'函数名：GetConnStr

'作 用：取得数据库链接字串，能生成MsAccess和MsSqlServer链接串

'参 数：Lx ---- 0 是MsAccess , 1 是MsSqlServer

'参 数：Dbiporpath ---- 数据库IP或路径

'参 数：Dbmc ---- 数据库名称

'参 数：Dbuid ---- 数据库用户名称

'参 数：Dbupwd ---- 数据库用户密码

'返回值：链接字串

'示 例：

'**************************************************

Public Function GetConnStr(ByVal Lx,ByVal Dbiporpath,ByVal Dbmc,ByVal Dbuid,ByVal Dbupwd)

GetConnStr=""

If Lx=0 Then

If Right(Dbiporpath,1)"\" Then Dbiporpath=Dbiporpath & "\"

GetConnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Dbiporpath&Dbmc&";Jet OLEDB:Database Password="&Dbupwd&";"

End If

If Lx=1 Then

GetConnStr ="DRIVER=SQL Server;UID="&Dbuid&";DATABASE="&Dbmc&";SERVER="&Dbiporpath&";PWD="&Dbupwd&";"

End If

End Function