sub split_scanner(txtScanned as string)
Dim r() As String, i as integer
Dim rst as recordset
rst = CurrentDb.Openrecordset("yourtable")
r = Split(txtScanned, vbCrLf)
for i = 0 to ubound(r)
rst.addnew
rst!YourField = trim(r(i))
rst.update
next i
rst.close
end sub
Private Sub Command16_Click()
On Error GoTo Err_Command16_Click
Sub split_scanner(Text17 As String)
Dim r() As String, i As Integer
Dim rst As Recordset
rst = CurrentDb.OpenRecordset("Main_Database_")
r = Split(Text17)
For i = 0 To UBound(r)
rst.AddNew
rst!DataIN = Trim(r(i))
rst.Update
Next i
rst.Close
Exit_Command16_Click:
Exit Sub
Err_Command16_Click:
MsgBox Err.Description
Resume Exit_Command16_Click
End Sub