Imports System.Data.Oledb
Dim Baglanti As OledbConnection
Baglanti = New OledbConnection
Baglanti.ConnectionString = "Provider=...; Data Source=...;"