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)

 
			
