Common database connection character string source code – MyDesk 2.0 Apply

Sql Server Database:
'Connect to a Sql Server Database
Function OpenConn(ByVal sUserID, ByVal sPassWord, ByVal sDBName, ByVal sServerName)
     'Parameter
     'sUserID:User's ID
     'sPassWord: User's Password
     'sDBName: Database Name
     'sServerName: Sql Server Name
     Dim ConnString, conn
     ConnString="Provider=SQLOLEDB.1;Password=" & sPassWord & ";Persist Security
     Info=True;User ID=" & sUserID &";Initial Catalog = " & sDBName &"; Data Source=" & sServerName
     'Connection String
     set conn= createobject("ADODB.Connection")
     conn.open ConnString
     set OpenConn=conn
End Function

Access Database:
'Connect to a Access Database
Function OpenConn( ByVal sUserID, ByVal sPassWord, ByVal sDBFile )
     'Parameter
     'sUserID: User's ID
     'sPassWord: User Password
     'sDBFile: Database Name
     Dim ConnString, conn
     ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Password=" & sPassWord & ";Data Source = "& sDBFile &";Persist Security Info=True"
     'Connection String
     set conn= createobject("ADODB.Connection")
conn.open ConnString
     set OpenConn=conn
End Function
   
Oracle Database:
Function OpenConn( ByVal sUserID, ByVal sPassWord )
     'Parameter note
     'sUserID: User name ID
     'sPassWord: User password
     Dim ConnString , conn
     ConnString="Provider=MSDAORA.1;Password=" & sPassWord &";User ID=" & sUserID &
";Persist Security Info=True"
     ' Create database connection string
     set conn= createobject("ADODB.Connection")
     conn.open ConnString
     set OpenConn=conn
End Function