VB Code:
'Store the info as strings
strFilepath = fname
strFileName = MusicMaster.File1.List(x)
strFileSize = FileLen(fname)
strTitle = RTrim(Songname)
strArtist = RTrim(Artist)
'Use SQL to insert the information in the strings into the table
SQL = "INSERT into " & table & "(FilePath, Filename, Filesize,
_ Artist, Title) VALUES ('" _
& Replace(strFilepath, "'", "''") & "','" _
& Replace(strFileName, "'", "''") & "','" _
& Replace(strFileSize, "'", "''") & "','" _
& Replace(strArtist, "'", "''") & "','" _
& Replace(strTitle, "'", "''") & "')"
Cnn.Execute (SQL)
Next