Public Sql

[Micky]

Hi,

I have 10 forms and on EACH form I have done

dim cn as new adodn.connection

Form Load event

If cn.State <> 1 Then
cn.Open "Provider=SQLOLEDB.1;User ID=administrator;Initial Catalog=Meridian;Data Source=administrator"
End If
cn.CursorLocation = adUseClient


On each of the forms I have written the connection open string

Is there a way where I can write it only once and it works
for all forms ????

If yes where n how ?

Pls advice

thnks

[holly]

Why not place it in a public module and then call each connection

ie call serverconnectins


HTH

[holly]

Example of module

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