Carga Cbo desde Funcion

[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