Dim Conector As String = "server=localhost;username=root;password=root;database=sistemaintegral"
    Dim ConectorBD As New MySqlConnection(Conector)
    Dim Conexion As New MySqlConnection("datasource=localhost; username=root; password=root; database=sistemaintegral")
    Dim Comando As New MySqlCommand() 'crear objeto comando que ejecutar la Query o sentencia SQL

Dim res As String = Ejecutar("INSERT INTO alumno (nom_alumno, apellido_pater_alum, apellido_mater_alum, dir_alumno, tel_alumno, entidad_fed, curp_alumno, genero_alumno, clave_alum, tutor_alum, grado, grupo, promedio_total) VALUES ('" & nom & "','" & ama & "','" & apa & "','" & dir & "','" & tel & "','" & ent & "','" & curp & "','" & genero & "','" & clave & "','" & tutor & "','" & grado & "','" & grupo & "','" & prom & "')")
            'nom, apa, ama, dir, tel, ent, curp, genero, clave, tutor, grado, grupo, prom
            If res = "1" Then
                MsgBox("Registro Guardado")
                Cmax = 0
                Mov = 0
            Else
                MsgBox("No se Guardo el Registro " & Query)
            End If