Public Sub CarregarBarcos()

Try

gpbBarcos.Text = "Barcos do cliente: " & txtNome.Text

varStr_Sql = Nothing

varStr_Sql = "SELECT tbl_barcos_clientes.cod_barco_cliente, tbl_barcos_clientes.cod_barco, tbl_barcos.modelo, tbl_barcos_clientes.nome_barco FROM tbl_barcos INNER JOIN tbl_barcos_clientes ON tbl_barcos.cod_barco = tbl_barcos_clientes.cod_barco WHERE (((tbl_barcos_clientes.cod_cliente) = " & txtCodCliente.Text & ")) ORDER BY tbl_barcos.modelo"

dtAdapterBarcos = New OleDb.OleDbDataAdapter(varStr_Sql, conConexao)

dtTableBarcos = New DataTable

dtAdapterBarcos.Fill(dtTableBarcos)

Dim dtAdapterListaBarcos As OleDb.OleDbDataAdapter

Dim dtTableListaBarcos As DataTable

varStr_Sql = Nothing

varStr_Sql = "SELECT cod_barco, modelo FROM tbl_barcos ORDER BY modelo"

dtAdapterListaBarcos = New OleDb.OleDbDataAdapter(varStr_Sql, conConexao)

dtTableListaBarcos = New DataTable

dtAdapterListaBarcos.Fill(dtTableListaBarcos)

Dim colunaModeloComboBox As New DataGridViewComboBoxColumn

colunaModeloComboBox.DataSource = dtTableListaBarcos

colunaModeloComboBox.DisplayMember = "modelo"

colunaModeloComboBox.ValueMember = "cod_barco"

Catch ex As Exception

MsgBox("Ocorreu um erro ao carregar os barcos." & vbCrLf & vbCrLf & "Erro: " & ex.ToString, MsgBoxStyle.Critical, "Sistema SPClean - Mensagem")

End Try

End Sub

Private Sub FormatarColunasGrid_Barcos()

Try

dtgBarcos.Columns(0).HeaderText = "Cód. In."

dtgBarcos.Columns(1).HeaderText = "Cód. Barco"

dtgBarcos.Columns(2).HeaderText = "Modelo"

dtgBarcos.Columns(4).HeaderText = "Nome Barco"

Catch ex As Exception

MsgBox("Ocorreu um erro ao formatar as colunas do grid." & vbCrLf & vbCrLf & "Erro: " & ex.ToString, MsgBoxStyle.Critical, "Sistema SPClean - Mensagem")

End Try

End Sub