Great! I hope you understand what changes I made.
this is why I asked about deleting the first record. Your code has
Code:
Private Sub QRStrToTable(Qstr As String)
Dim sRec, sFld As String
Dim sqlstr, tblstr As String
Dim i, i2, iRec, iFld As Integer
iRec = 1
i = InStr(QRCode, "*")
If i > 0 Then
sRec = Left(QRCode, i - 1) 'get next record in string
sRec = sRec & ";"
MsgBox (sRec)
QRCode = Mid(QRCode, i + 1) 'remove first record
MsgBox (QRCode)
tblstr = ""
iFld = 1
Doesn't really matter now, as long as you are happy with the results......
Good luck with your project.