by rone (9 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 12th April 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Database Connection
ByVal Driver As String, _
ByVal DB_name As String, _
ByVal Host As String, _
ByVal Server_Name As String, _
ByVal User As String, _
ByVal Pass As String, _
ByVal Serv As String, _
ByVal Pro As String) As adodb.Connection
Dim DataConn As adodb.Connection
Set DataConn = New adodb.Connection
Dim strConnectString As String
On Error GoTo errHandler
' Create and establish data connection
Set DataConn = New adodb.Connection
DataConn.ConnectionTimeout = 15
DataConn.CommandTimeout = 30
'Access connection code
strConnectString = "Provider=" & Provider & ";" & _
"DRIVER={" & Driver & "};" & _
"DB=" & DB_name & ";" & _
"HOST=" & Server_Name & ";" & _
"SRVR=" & Server_Name & ";" & _
"UID=" & User & ";" & _
"PWD=" & Pass & ";" & _
"SERV=" & Serv & ";" & _
"PRO=" & Pro & ";" & _
"OLE DB Services = -4;"
'Open Connection
DataConn.Open strConnectString
'Return connection object to calling procedure.
Set GetConnection = DataConn
Set DataConn = Nothing
Exit Function
errHandler:
MsgBox Err.Description
Set DataConn = Nothing
End Function