Private Sub Form_Load()
 
    Dim tamino 'As TAMINOXLib.TaminoX
    Dim element
    Dim inoResponse
    Dim strDBVersion As String
    Dim ls As Long
    
    On Error GoTo DoErr:
     
    ' instantiate TaminoX API and initialize it
    Set tamino = CreateObject("TAMINOX.TaminoX1")
    ls = tamino.UseServerHTTP(0)
    tamino.Initialize
    
    'set DB URL
    tamino.csDatabaseURL = "http://localhost/tamino/MVS/NodeLevelUpdate"
    
    ' check the DB version
    strDBVersion = tamino.GetVersion
    MsgBox (strDBVersion)
    
    ' ping it
    Set inoResponse = tamino.Ping
    
    If Not (inoResponse Is Nothing) Then
        MsgBox (inoResponse.xml)
    Else
        MsgBox ("Ping Result was null")
    End If
    
    Set element = CreateObject("Microsoft.XMLDOM")
    element.loadXML ("<Append>My new Append node</Append>")
    If element.parseError <> 0 Then
         MsgBox ("Error in XML: " & element.parseError)
    End If
        
    ' start a session
    Set inoResponse = tamino.StartSession(InoIsolationDefault, InoLockWaitYes)
    
    ' append a new child element 
    Set inoResponse = tamino.InoAppendChild("Telephone/@1", "Telephone", element)
    If Not (inoResponse Is Nothing) Then
        MsgBox (inoResponse.xml)
    Else
        MsgBox ("InoAppendChild result was null")
    End If
        
    ' commit the transaction
    tamino.Commit
    tamino.EndSession
    
    ' Query to check the result
    Set inoResponse = tamino.DoQuery("/Telephone[@ino:id=""1""]")
    If Not (inoResponse Is Nothing) Then
        Set inoResponse = tamino.GetResult(inoResponse)
        MsgBox (inoResponse.xml)
    Else
        MsgBox ("Query result was null")
    End If
    
    MsgBox ("Done")
    Exit Sub
DoErr:
    tamino.Rollback
    tamino.EndSession
    MsgBox ("Error occured: " & Err.Description)
End Sub