COMO INSERIR DADOS NO POSTGRESQL PELO VB

Imports Npgsql
Imports System.Data
Public Class Form1
    Dim ConexaoPG As String = [Ô]Server=localhost;Port=5432;User Id=postgres;Password=megaware;Database=Banco_Teste;Protocol=3;SSL=false; Pooling=true;MinPoolSize=1;MaxPoolSize=20;Encoding=UNICODE;Timeout=15;SslMode=Disable;[Ô]
    Public conn As NpgsqlConnection = Nothing
    Dim comando As NpgsqlCommand
    Private Sub Carrega_Banco_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Carrega_Banco.Click
        Try
            [ô]Cria uma Instancia de NpgsqlConnection na variavel conn
            conn = New Npgsql.NpgsqlConnection(ConexaoPG)

            [ô]Abre a conexão
            conn.Open()

            [ô]Declara e atribui a instrucao SQL de consulta
            Dim SQL As String = [Ô]SELECT * FROM tabela1[Ô]
            [ô]aki esta falando assim selecione (* significa todos) as colunas da tabela usuarios



            [ô]Instancia o NpgsqlDataAdapter responsavel pela comunicação
            [ô]é feita a leitura dos dados preenchendo o dataset
            Dim da As Npgsql.NpgsqlDataAdapter = New Npgsql.NpgsqlDataAdapter(SQL, conn)

            [ô]Instacia um DataSet
            Dim ds As DataSet = New DataSet()

            [ô]Preenche o DataAdapter
            da.Fill(ds, [Ô]Tabela1[Ô])

            [ô]Atribiu um Datasource a Grid
            DataGridView1.DataSource = ds.Tables([Ô]Tabela1[Ô]).DefaultView

            [ô]aki vai mostra mensagem de erro causo houver

        Catch ex As Exception
            MsgBox(ex.Message)

        Finally
            If Not conn Is Nothing Then
                [ô]se conexao foi estabelecida entao
                If conn.State = ConnectionState.Open Then

                    [ô]fecha a conexao
                    conn.Close()
                End If
            End If
        End Try
    End Sub

    Private Sub Puxar_Dado_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Puxar_Dado.Click
        Try
            Dim SNome As String = DataGridView1.CurrentRow.Cells([Ô]Nome[Ô]).Value.ToString()
            txt_dado_puxado.Text = SNome
        Catch ex As Exception
            MsgBox([Ô]erro[Ô])
        End Try
    End Sub

    Private Sub Inserir_novo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Inserir_novo.Click
        Try
            conn.Open()
            comando.CommandText = [Ô]INSERT INTO tabela1(codigo, nome, sobrenome, idade, inclusao) VALUES (02, [ô]1[ô], [ô]2[ô], [ô]3[ô], current_date);[Ô]
            [ô]como q faz executar o [Ô]camando[Ô] ...
            MsgBox([Ô]salvo[Ô])
           
        Catch ex As Exception
            MsgBox([Ô]erro[Ô])
        End Try


    End Sub
End Class

Private Sub Inserir_novo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Inserir_novo.Click
        Try
            [ô]salva ...
            comando.Connection = conn
            comando.CommandText = [Ô]INSERT INTO tabela1(codigo, nome, sobrenome, idade, inclusao)VALUES (03, [ô]Gustavo[ô], [ô]G. Hovelacque[ô], 16, current_date);[Ô]
            conn.Open()
            comando.ExecuteNonQuery()
            conn.Close()
            [ô]Atualiza
            Try
                conn = New Npgsql.NpgsqlConnection(ConexaoPG)
                conn.Open()
                Dim SQL As String = [Ô]SELECT * FROM tabela1[Ô]
                Dim da As Npgsql.NpgsqlDataAdapter = New Npgsql.NpgsqlDataAdapter(SQL, conn)
                Dim ds As DataSet = New DataSet()
                da.Fill(ds, [Ô]Tabela1[Ô])
                DataGridView1.DataSource = ds.Tables([Ô]Tabela1[Ô]).DefaultView
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                If Not conn Is Nothing Then
                    If conn.State = ConnectionState.Open Then
                        conn.Close()
                    End If
                End If
            End Try
        Catch ex As Exception
            MsgBox([Ô]erro3[Ô])
        End Try
    End Sub