Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Dim oOleDbConnection As OleDbConnection
Dim con As String = "Provider=PostgreSQL.1;Data Source=127.0.0.1;location=post;User ID=postgres;password=admin;"
'Dim con As String = "Server=127.0.0.1;Port=5432;Database=post;Integrated Security=true;"
Dim MyConnection As New OleDbConnection(con)
Try
MyConnection.Open()
MsgBox("ok")
Catch ex As Exception
MsgBox("No")
End Try
End Sub
End Class