Private Sub Disconnect() 'The following example disconnects a specific connection ' to the Quality Center server. Dim sReply As String On Error GoTo err sReply = m_SAClient.Disconnect(12433736) MsgBox sReply Exit Sub err: MsgBox "Program failed:" + err.Description End Sub