[Resolvido] Popular ComboBox

Boa tarde.

Estou fazendo uma aplicação usando VB.Net (Visual Studio 2008) e PostgreSql.

Aqui está minha classe de conexão com o banco:

Imports Npgsql
Imports System.Data

Public Class ConexaoBD
Dim ConexaoPG As String = "server=localhost;port=5432;userid=postgres;password=123456;database=WM_Metalurgica"
Dim conn As NpgsqlConnection = Nothing
Dim comando As NpgsqlCommand
Dim reg As Integer

Public Sub Conectar()
Try
conn = New NpgsqlConnection(ConexaoPG)
conn.Open()
Catch ex As Exception
MessageBox.Show(ex.Message, "Erro nos dados!", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Function StatusConn() As Boolean
If (conn.State = ConnectionState.Open) Then
Return True
Else
Return False
End If
End Function

Public Sub TestarConexao()
Try
Dim Conn As New ConexaoBD
Conn.Conectar()
If (Conn.StatusConn = True) Then
Form_Principal.lbl_StatusConexao.Text = "Conectado"
Form_Principal.lbl_StatusConexao.ForeColor = Color.Green
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Falha na conexão!")
End Try
End Sub

Public Sub AdicionarDados(ByVal comando As NpgsqlCommand)
Try
Conectar()
comando.Connection = conn
reg = comando.ExecuteNonQuery()
MessageBox.Show("Dados inseridos com sucesso", "Inclusão de dados", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Erro durante Inclusão!", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
If Not conn Is Nothing Then
If conn.State = ConnectionState.Open Then
conn.Close()
comando.Parameters.Clear()
End If
End If
End Try
End Sub
End Class

Tenho uma tabela funcao com os campos id_funcao e desc_funcao.

O cadastro em funcao está funcionando perfeitamente. Consigo inserir dados na tabela.

 

Aqui o código do meu formulário:

Imports Npgsql

Public Class Form_Cad_Funcao
Dim comando As New NpgsqlCommand
Dim bd As New ConexaoBD

Private Sub btn_Cadastrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cadastrar.Click

 comando.CommandText = "INSERT INTO funcao(desc_funcao) VALUES(@DescrFuncao)"
 comando.Parameters.AddWithValue("@DescrFuncao", txt_DescrFuncao.Text)
 bd.AdicionarDados(comando)
 txt_DescrFuncao.Text = ""
 txt_DescrFuncao.Focus()
 End Sub

 Private Sub btn_Sair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Sair.Click
 If txt_CodFuncao.Text = "" And txt_DescrFuncao.Text = "" Then
 Close()
 ElseIf MessageBox.Show("Deseja sair sem salvar?", "Atenção!", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
 Close()
 End If
 End Sub

 Private Sub btn_Limpar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Limpar.Click
 txt_DescrFuncao.Text = ""
 End Sub

 Private Sub Form_Cad_Funcao_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 End Sub

End Class

No meu cadastro de Funcionários quero popular uma ComboBox com os dados da coluna desc_funcao da tabela[/b] funcao.

 

Como devo proceder?