Public Class Il_Ilce

    Public Shared connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='İl İce Mahalle.mdb'"
    Private Shared Function Baglan() As OleDbConnection
        Dim baglanti As New OleDbConnection(connectionstring)
        If baglanti.State <> System.Data.ConnectionState.Open Then
            Try
                baglanti.Open()
            Catch
                MsgBox("Veritabanı Bağlantısı Kurulamadı", MsgBoxStyle.Exclamation, " Hata !!!")
                baglanti.Close()


            End Try
        End If
        Return baglanti
    End Function
End Class

Dim Baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='İl İce Mahalle.mdb'")
        Dim komut1 As String = "SELECT * from il where il_id=1"
        Dim yeni As New OleDbCommand(komut1, Baglanti)
        Dim oku1 As OleDbDataReader
        Baglanti.Open()
        oku1 = yeni.ExecuteReader
        While oku1.Read
            MsgBox(oku1.GetString(1))
           
        End While
        oku1.Close()
        Baglanti.Close()