Private Sub TestConnection()
'The following Visual Basic example tests a project’s
' current connection string.
Dim sDomainName As String
Dim sProjectName As String
Dim sReply As String
On Error GoTo err
sDomainName = "MyDomain"
sProjectName = "MyProject"
sReply = m_SAClient.TestConnection _
(sDomainName, sProjectName, "")
MsgBox sReply
Exit Sub
err:
MsgBox "Program failed:" + err.Description
End Sub