vb.net : konesi postgresql

Imports System
Imports Devart.Data
Imports Devart.Data.DataLink
Imports System.Data


Module Module1
    Public siswa_username As String
    Public koneksi As PostgreSql.PgSqlConnection = Nothing
    Public Sub konekdb()
        Dim koneksi_db As String
        koneksi_db = "host=localhost; port=5432; database=BankSoal_Guru; user=postgres; password=root"
        koneksi = New PostgreSql.PgSqlConnection(koneksi_db)
        koneksi.Unicode = True
        koneksi.Charset = "UTF-8"
        koneksi.Open()
    End Sub
End Module