Carga Cbo desde Funcion

[death_nemesis]

hola amigos estoy intentando de cargar un cbo con el resultado desde la funcion pero no me resulta...me pueden ayudar porfa este es el codigo

Código vb:

CboNacionalidad.DisplayMember = Carga_Cbo("id_nacionalidad,descripcion", "nacionalidad", "ORDER BY descripcion")
 
' La conversión del tipo 'DataTable' en el tipo 'String' no es válida.
 
 
Public Function Carga_Cbo(ByVal campos As String, ByVal tabla As String, ByVal condicion As String)
        SQL = "SELECT " + campos + "  FROM " + tabla + " " + condicion + ";"
        dadapter = New Npgsql.NpgsqlDataAdapter(SQL, conn)
        dset = New DataSet()
        dadapter.Fill(dset)
        Return dset.Tables(0)
    End Function
 

[death_nemesis]

ya lo solucione de esta manera queda el código

Código vb:

CboNacionalidad.DataSource = Carga_Cbo("id_nacionalidad,descripcion", "nacionalidad", "ORDER BY descripcion")
        CboNacionalidad.DisplayMember = Carga_Cbo("id_nacionalidad,descripcion", "nacionalidad", "ORDER BY descripcion").Columns(1).Caption.ToString
        CboNacionalidad.ValueMember = Carga_Cbo("id_nacionalidad,descripcion", "nacionalidad", "ORDER BY descripcion").Columns(0).Caption.ToString
 
 
Public Function Carga_Cbo(ByVal campos As String, ByVal tabla As String, ByVal condicion As String) As DataTable
        SQL = "SELECT " + campos + "  FROM " + tabla + " " + condicion + ";"
        Try
            conn.Open()
            Dim cmd As New NpgsqlCommand(SQL, conn)
            Dim da As New NpgsqlDataAdapter(cmd)
            Dim ds As New DataSet
            da.Fill(ds, "" + tabla + "")
            Return ds.Tables(0)
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, _
                            "error", MessageBoxButtons.OK, _
                            MessageBoxIcon.Error)
        Finally
            If conn.State = ConnectionState.Open Then
                conn.Close()
            End If
        End Try
    End Function