Sub conectar_mysql()
        Try
            conexion_mysql.ConnectionString = "server=localhost;User id=root;database=SISFRAC1;Password=Sistemas20"
            conexion_mysql.Open()
        Catch ex As Exception
            MsgBox("No se pudo conectar " + ex.Message)
        End Try
    End Sub

 AgregarUsuarioSQL = "INSERT INTO Usuarios VALUES (2,'" & TXTUserAdd.Text & "','" & newuser_apellidos.Text & "','" & newuser_nombre.Text & "', '" & NivelUser & "','" & TXTPassUser.Text & "')"

        comando = New MySqlCommand(AgregarUsuarioSQL, conexion_mysql)
        comando.ExecuteNonQuery()