Back to .Net Form

    Private Sub cmdCompress_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCompress.Click
    If Not rs.Compress_Database = 0 Then
      MsgBox(rs.Error_Message)
    Else
      MsgBox(rs.Info_Message)
    End If
  End Sub