Segue um pequeno exemplo:
Dim
conn AsNpgsql.NpgsqlConnection=
NewNpgsql.NpgsqlConnection(strConexao)
Dimcomm
AsNpgsql.NpgsqlCommand=
NewNpgsqlCommand(strSql,
conn)
DimdaCursos
AsNpgsql.NpgsqlDataAdapter=
NewNpgsqlDataAdapter(comm)
Dimtable
AsDataTable=
NewDataTable()
Try
conn.Open()
daCursos.Fill(table)
GridView1.DataSource = table
GridView1.DataBind()
Catchex
AsException
Finally
conn.Close()
EndTry
Atenciosamente, Marcio Nogueira Cardoso Pinto.