ve kendi Access dosyana göre değiştir alanları
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='KENDİDOSYAADINI.mdb'")
Dim veriler As New DataTable("il")
Dim adapter As New OleDbDataAdapter("select * from KEDNİTABLOADINI order by KENDİİLALANADINI", baglanti)