CurrentProject.OpenConnection "PROVIDER=SQLOLEDB.1;PERSIST SECURITY INFO=FALSE;" & _
          "INITIAL CATALOG=la_la_la;DATA SOURCE=la_la_la", CStr(Me!usr), CStr(Me!psw)
    
    Dim cmd As New ADODB.Command
    With cmd
        .ActiveConnection = CurrentProject.Connection
        .CommandType = adCmdText
        .CommandText = "SET NOCOUNT ON " & _
                                    "SET DATEFORMAT dmy " & _
                                    "SET DATEFIRST 1"
        .Execute
        .CommandType = adCmdText
        .CommandText = "EXEC sp_setapprole 'MyAppRole', 'Password'"
        .Execute
    End With