Public conn As New ADODB.Connection
Public cmd As New ADODB.Command
Public rs As ADODB.Recordset
Public sConnString  As String
Public strsql As String

Public txtserver As String
Public txtdatabase As String
Public txtlogin_apl As String
Public txtlogin_sql As String
Public txtpassword As String
Public txtposto As String
Public txtunits As String

________________________________________________________________________________
Private Function Connect_Sql()
    txtdatabase = "database"
    txtserver = "serverinstancia"
    txtlogin_sql = "user"
    txtpassword = "pwd"

    txtdatabase = "AGERE"
    txtlogin_sql = "sa"
    txtpassword = "*****"
    txtserver = "agrsql004instance01"


    Connect_Sql = "Provider=SQLOLEDB.1;User ID=" & txtlogin_sql & ";password=" & txtpassword & ";Initial Catalog=" & txtdatabase & ";Data Source=" & txtserver & ";Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096"
End Function

________________________________________________________________________________
'initiates connection
Public Sub Inicia_Conneccao()
    sConnString = Connect_Sql()
    conn.Open sConnString
    Set cmd.ActiveConnection = conn
End Sub

________________________________________________________________________________
'closes connection
Public Sub Fecha_Conneccao()
    On Error Resume Next
    Set rs = Nothing
    Set cmd = Nothing
    conn.Close
    Set conn = Nothing
End Sub

________________________________________________________________________________
Public Sub Executa_Query(strsql As String)
    cmd.CommandText = strsql
    cmd.CommandType = adCmdText
    Set rs = cmd.Execute
End Sub

________________________________________________________________________________
Public Sub Exec()
    Inicia_Conneccao
        Executa_Query ("Select * from Utilizadores")
            Do While Not rs.EOF
                If Not IsNull(rs!TipoDoc) Then Query = Query & rs!TipoDoc
                rs.MoveNext
            Loop
    Fecha_Conneccao
End Sub