Buenas .Tengo que realizar un trabajo de visual studio y tengo algunos problemas.
 

El primero:
-Tengo un registro hecho,donde guardo en una base de datos el usuario dni tlf ect...Tengo hecho un ComboBox que me muestra de la base de datos los cursos que hay y al meterle el codigo para que guarde tambien el curso me da fallo.


Este es el codigo que tengo:


 

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Try
            If txtcontraseña.Text = txtconfirmar.Text Then
                conexion.ConnectionString = "data source=localhost;user id=root; password='' ;database=colegiopbl"
                conexion.Open()
                Dim comando As New MySqlCommand("INSERT INTO `alumnos`(nombre,apellido,dni,telefono,Contraseña,curso) VALUES ('" & txtnombre.Text & "','" & txtapellido.Text & "','" & txtdni.Text & "','" & txttelefono.Text & "','" & txtcontraseña.Text & "'," & cbcurso.Text & "')", conexion)
                comando.ExecuteNonQuery()
                MsgBox("Tus datos se han guardado correctamente")
                Dim b As New AplicacionAlumnos
                b.Show()
                Me.Finalize()
                conexion.Close()
            Else
                MsgBox("Las contraseñas no coinciden")
 
            End If
 
        Catch ex As Exception
            MsgBox(ex.Message)
 
        End Try

El segundo fallo que tengo:

Tengo un login hecho,donde pones el usuario lo guardo en una variable que la tengo declarada en un modulo como publica,y luego esa variable la uso para que me haga una consulta y me muestre los datos del usuario que a entrado,mostrandome sus notas ,asignaturas ect...La variable se llama variable jaja

Este es el codigo


 

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 
        Try
            conexion.ConnectionString = "data source=localhost;user id=root; password='' ;database=colegiopbl"
            conexion.Open()
            Dim consulta As String
            consulta = "select A.nombre, E.Nota, S.NombreAsignatura, T.Trimestre from expedientes E inner join alumnos A on E.NombreAlumno=A.Idalumnos inner join asignatura S on S.idasignatura=E.Asignatura inner join trimestre T on T.idTrimestre=E.Trimestre where A.nombre= '" & Module1.variable & "'"
            adaptador = New MySqlDataAdapter(consulta, conexion)
            datos = New DataSet
            adaptador.Fill(datos, "trimestre,expedientes,alumnos,Asignatura")
            DataGridView1.DataSource = datos
            DataGridView1.DataMember = "trimestre,expedientes,alumnos,Asignatura"
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class
 

Y ya por ultimo tengo 2 combobox que quiero concatenar,depende que elijas en el primero,el segundo mostrara una cosa o otra y no tengo ni idea de como hacerlo.

Este es el codigo que tengo para rellenar el primer combobox


    

Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Try
            conexion.ConnectionString = "data source=localhost;user id=root; password='' ;database=colegiopbl"
            conexion.Open()
            Dim consulta As String
            consulta = "SELECT *FROM curso"
            adaptador = New MySqlDataAdapter(consulta, conexion)
            datos = New DataSet
            datos.Tables.Add("curso")
            adaptador.Fill(datos.Tables("curso"))
            cbcurso.DataSource = datos.Tables("curso")
            cbcurso.DisplayMember = "NombreCurso"
            conexion.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
 
    End Sub

Aqui os dejo los link de mega de mi programa nose cual de los 2 ira asique dejo los 2
en la carpeta esta el programa y fuera la base de datos de phpmyadmin
https://mega.nz/#F!H1cglQ6Q
https://mega.nz/#F!H1cglQ6Q!yTzNJxiIDbb86iZ5CRcThA

si pide clave de cifrado
yTzNJxiIDbb86iZ5CRcThA


Mod: Los códigos deben ir en etiquetas GeSHi, tema movido a .NET