strSQL = "Select * from jos_content where ID = 0"
 
    Set rst = New ADODB.Recordset
 
    rst.Open strSQL, GetMySQLConnection, adOpenDynamic, adLockOptimistic
    With rst
        .AddNew
        !title = Me.strDocTitel
        !Alias = Me.ID_Doc
        !introtext = strHeader
        !fulltext = cwb_MakeLinkData(Me.ID_Doc, _
          clsFrmParent.clsFilesControl.clsobjTVW)
        !State = 1
        !sectionid = 0
        !mask = 0
        !catid = 0
        !created_by = 4
        !metakey = strKeywords
        .Update
    End With

    strConnection = "Driver={MySQL ODBC 5.1" & _
      "Driver};Server=xxxx;Database=j2010;User=root;Password=xxxx;Option=3;"
    If objMySQLConnection Is Nothing Then
        Set objMySQLConnection = New ADODB.Connection
        With objMySQLConnection
            .Open strConnection
        End With
    End If
    Set GetMySQLConnection = objMySQLConnection