frm

    Private Sub cargaComboCurso()
        Dim objCursoBL As CursoLN = New CursoLN()
        Dim dsListado As DataSet = New DataSet
        dsListado = objCursoBL.listarCurso()
        Me.CbxCurso.Text = "Seleccione"
        Me.CbxCurso.DataSource = dsListado.Tables("Curso")
        Me.CbxCurso.DisplayMember = dsListado.Tables("Curso").Columns("Nombre").ToString
        Me.CbxCurso.SelectedIndex = -1
    End Sub

cursoLN

    Public Function listarCurso() As DataSet
        objCursoAD = New CursoAD
        Dim dsListado As DataSet = New DataSet
        dsListado = Me.objCursoAD.listarCurso
        Return dsListado
    End Function

cursoAD

    Public Function listarCurso() As DataSet
        Dim daListado As SqlClient.SqlDataAdapter
        Dim dsListado As DataSet = New DataSet
        Dim sql As String = ""

        sql = "select * from inf2450883g2dba.Curso"

        daListado = New SqlClient.SqlDataAdapter(sql, Me.CadenaConexion)
        daListado.Fill(dsListado, "Curso")
        Return dsListado
    End Function