Private oSQLNS As New SQLNamespace

Private oNSObj As SQLNamespaceObject

Private Sub cmdAktifData_Click()

 On Error GoTo localErr

 oSQLNS.Initialize "XB-SQL Namespace App", SQLNSRootType_Database, "Server=.;UID=sa;PWD=;Database=XBLogistik;", hWnd

 If (Err.Number <> 0) Or (oSQLNS Is Nothing) Then

    Set oSQLNS = Nothing

    MsgBox Err.Number & " " & Err.Description

    Exit Sub

  End If

  Dim hDB As Long

  hDB = oSQLNS.GetRootItem

  If hDB <> 0 Then

     Set oNSObj = oSQLNS.GetSQLNamespaceObject(hDB)

  End If

  Dim oNScmd As SQLNS.SQLNamespaceCommand

  Set oNScmd = oNSObj.Commands("Properties")

  oNScmd.Execute

  Set oSQLNS = Nothing

  Exit Sub

localErr:

  Dim sErr As String

  sErr = "Database XBLogistik tidak ada!" & vbCrLf

  sErr = sErr & "Buat Periode Baru atau Aktifkan Data"

  MsgBox sErr, vbCritical, "Error"

End Sub