Public Sub dbOpen()
        Try
            CON = New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=BimbelNasional;Integrated Security=true")
            If CON.StatisticsEnabled = ConnectionState.Closed Then
                CON.Open()
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub