Code:

dim veza as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mojabaza.mdb;User Id=admin;Password=;")
dim kom as new oledbcommand("",veza)
dim citac as oledbdatareader

Sub Citanje_iz_baze
try
'ovo ovdje ce da doda stavku naziv u tvoj listbox
veza.open
kom.commandtext="SELECT id,naziv FROM Neka_tabela"
citac=kom.executereader
while citac.read
listbox1.item.add citac.item("naziv")
end while
citac.close
veza.close
catch gr as OleDbException
msgbox gr.message
end try
End sub

Sub Pisanje_u_bazu
'ovo ovdje ce da azurira entitet naziv. Pretpostavimo da ti se redni brojevi u DropDownListi poklapaju sa id-om u bazi, tj da ti id u bazi ide 1,2,3,4,5,6,7,8,9...
veza.open
kom.commandtext="UPDATE Neka_tabela set naziv='Pero' where id=" & DropDownList1.SelectedIndex
kom.executeNonQuery
veza.close
catch gr as OleDbException
msgbox gr.message
end try
End sub

Code:

dim veza as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mojabaza.mdb;User Id=admin;Password=;")
dim DA as new OleDbDataAdapter("SELECT * FROM Neka_tabela",veza)
dim DT as new Data.DataTable

Sub Citanje_iz_baze
try
da.fill dt
Grid.DataSource=DT
catch gr as OleDbException
msgbox gr.message
end try
End sub

Code:

//usmjesto update koristi ovo
insert into filmovi (naziv,opis,...,id) values ('terminator','fantastika',...,2154)