Public Function SendQuery(ByVal sql As String) As Integer
        Dim cmd As New Data.OleDb.OleDbCommand(sql, Con)
        Try
            Return cmd.ExecuteNonQuery()
        Catch ex As OleDb.OleDbException
            MessageBox.Show(ex.Message)
            Return -1
        End Try
    End Function