'---------------------------------------------------------------------------------------
' Procedure : ConnMasterDBSQLAzure
' Purpose   : Returns the Connection String to a SQL Azure master Database
' Author    : Patrick Wood http://gainingaccess.net
'           : You should change the name of the procedure for distributed databases.
'           : PartColorNotes, strSpindleName, GetProductSize are some examples.
'           : You can use your imagination to create more Procedure Names
' Argument  : strIn is what I call a "Password" Argument. It makes it extremely difficult
'           : for a hacker to run your Procedure.
'           : You should change it to another string for your use.
' Notes     : Remember to enter your Connection String info in the My_________ places
'           : in the Procedure.
' Example   : qdf.Connect = ConnMasterDBSQLAzure
'---------------------------------------------------------------------------------------
'
Public Function ConnMasterDBSQLAzure(strIn As String) As String

    If strIn = "Wb_gR%/PD\-k&yZq~j>l" Then
        ConnMasterDBSQLAzure = "ODBC;" _
            & "DRIVER={SQL Server Native Client 10.0};" _
            & "SERVER=tcp:MyServerName.database.windows.net,1433;" _
            & "DATABASE=master;" _
            & "UID=MyUserName@MyServerName;" _
            & "PWD=MyPassword;" _
            & "Encrypt=Yes"
    Else
        ConnMasterDBSQLAzure = vbNullString
    End If

End Function