Public m_objoCn As ADODB.Connection
Public m_strCS As String
Public Sub Initialiseserverconnection()
On Error GoTo OpenErr:
Set m_objoCn = Nothing
Set m_objoCn = New ADODB.Connection
m_strCS = "Provider=SQLOLEDB.1;"
m_strCS = m_strCS & "Data Source=;"
m_strCS = m_strCS & "database=_;"
m_strCS = m_strCS & "user id=;"
m_strCS = m_strCS & "password=;"
m_strCS = m_strCS & "Use Procedure for Prepare=1;"
m_strCS = m_strCS & "Auto Translate=True;"
m_strCS = m_strCS & "Packet Size=4096;"
'Open the Connection
With m_objoCn
.ConnectionString = m_strCS
.CursorLocation = adUseServer
.Open m_strCS
End With
Exit Sub:
OpenErr:
MsgBox Err.Description, vbCritical
End Sub