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()