Combobox'dan seçilen ürünün fiyatını yazdırdım. Sıra db'ye eklemede!

Try 
   
              Dim dr As OleDbDataReader 
   
              baglanticumlesi = "Provider=Microsoft.jet.oledb.4.0;Data Source= C:\urunler.mdb" 
              bag = New OleDbConnection(baglanticumlesi) 
   
              SQLCumle = "SELECT Fıyatlar FROM urunler WHERE Urun = '" & Trim(ComboBox1.SelectedItem.ToString) & "' " 
   
              bag.Open() 
   
              komut = New OleDbCommand(SQLCumle, bag) 
              dr = komut.ExecuteReader 
              adapter = New OleDbDataAdapter 
              adapter.SelectCommand = komut 
   
              While dr.Read() 
                  Label2.Text = dr("Fıyatlar").ToString & " TL" 
              End While 
   
              dr.Close() 
   
          Catch hata As OleDbException 
          Catch ex As Exception 
   
              MessageBox.Show(ex.Message) 
   
          End Try 
      End Sub