Μετατροπή κώδικα VBA

[γιώργοςΚ]

Χαιρετώ όλους τους φίλους του φόρουμ,

Θα ήθελα την βοήθεια των πιο έμπειρων φίλων του φόρουμ στην μετατροπή του πάρα κάτω κώδικα που επισυνάπτω:

Έχω ένα πίνακα "tempSVN" ο οποίος διαθέτει ένα πεδίο που η μορφή του είναι Number. Θα ήθελα να προσθέσω στον ίδιο πίνακα και τα πεδία "svnID" (Auto) και "DateAdded". Αυτό βέβαια δεν είναι το πρόβλημα μου όπως καταλαμβαίνετε... To πρόβλημα μου είναι στον πιο κάτω κώδικα που αυτή την στιγμή είναι "κομμένος ραμμένος" στο να παίρνει μόνο την τιμή απο τo "S" και εγώ θα ήθελα να μπορεί να παίρνει και τα πιο πάνω που επιθυμώ να βάλω.

Public Function CheckVolumeSerialNumber()
Dim S, strCheck0, strCheck1, strCheck2, strCheck3, strCheck4 As String

VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
Serial = Replace(Trim(Str$(Serial)), "-", "")

S = Serial

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tempSVN VALUES ('" & S & "')"
DoCmd.SetWarnings True

End Function

Ελπίζω να μπορεί να βοηθήσει κάποιος

Σας ευχαριστώ εκ προτέρων