devi soltanto modificare il nome del db access (il percorso anche, eventualmente) e l'istruzione di insert. Com'e' strutturata la tua tabella ?

codice:
Protected Sub Inserisci_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Inserisci.ServerClick

        If Not Upload.PostedFile Is Nothing And Upload.PostedFile.ContentLength > 0 Then
            Dim fn As String = System.IO.Path.GetFileName(Upload.PostedFile.FileName)
            Dim SaveLocation As String = Server.MapPath("..\..\App_Themes\Tema\Images") & "\" & fn
            Try
                Upload.PostedFile.SaveAs(SaveLocation)
                CaricamentoSi.Visible = True
                Errore.Visible = False
            Catch Exc As Exception
                Errore.Visible = True
                CaricamentoSi.Visible = False
            End Try


           Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("miodb.mdb")
           Dim cn As New System.Data.OleDb.OleDbConnection(ConnString)
           cn.Open()
           Dim comando As New System.Data.OleDb.OleDbCommand
           comando = New System.Data.OleDb.OleDbCommand("INSERT INTO Vendita (Immagine, Descrizione, Categoria, Tipo, Prezzo) VALUES (SaveLocation,'x','x','x',0)", cn)
           Try
            Dim affected As Integer
            affected = comando.ExecuteNonQuery()
            If affected > 0 Then
                Response.Write("Inserimento OK")
            End If
           Catch ex As System.Data.OleDb.OleDbException
            Response.Write("Si è verificato un errore: " & ex.Message)
           Finally
            cn.Close()
            comando.Dispose()
           End Try
        Else
            Response.Write("Please select a file to upload.")
        End If
    End Sub
Al posto delle x e dello 0 mettici i valori che devi mettere (hai postato solo una parte del codice, non so da dove prendi gli altri valori da inserire). Prova cosi'...