problem reading csv file

	Set fso = New Scripting.FileSystemObject
	
	'################## CHANGE THE NAME OF THE FILE..........
	strFileName = App.Path & "\MyFile.csv"
	'##################
	
	CSVFile = strFileName
	
	Const ForReading = 1, ForWriting = 2, ForAppending = 3
	Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

	'
	'Define File System object for reading the CSV file
	'
	Set FileCSV = fso.GetFile(CSVFile)

	Set tsmax = FileCSV.OpenAsTextStream(ForReading, TristateFalse)
	While Not tsmax.AtEndOfStream
		no_line = no_line + 1
		Text = tsmax.ReadLine
	Wend
	If no_line = 1 Then
		MsgBox "No line found in csv"
	End If
	
	Set tsmax = Nothing
	'
	'Create connection string for reading CSV datacontent
	'
	Dim objConn As ADODB.Connection
	Dim objRs As ADODB.Recordset
	
	Set objConn = New ADODB.Connection
	objConn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
	  "Dbq=" & FileCSV.ParentFolder & ";" & _
	  "Extensions=asc,csv,tab,txt;" & _
	  "Persist Security Info=False"
	'
	'Create Record Set for reading CSV file content
	'
	 Set objRs = New ADODB.Recordset
	objRs.Open "Select * From " & FileCSV.Name, objConn, adOpenStatic, adLockReadOnly, adCmdText

	'
	'Transfer Records from from CSV file to Tem database
	'
	
	Dim objAccessRs As ADODB.Recordset
	Dim llngCounter As Long
	
	Set objAccessRs = New ADODB.Recordset
	
	llngCounter = 2
	
	Do While Not objRs.EOF
		If Trim(objRs("PersonID")) <> "" And IsNumeric(objRs("PersonID")) Then
			
			objAccessRs.Open "Select * from tblPerson Where PersonID = " & objRs("PersonID"), _
			mobjConn, 3, 3
			
			If Not objAccessRs.EOF Then
				'objAccessRs("PersonID") = Trim(objRs("PersonID"))
				objAccessRs("Prefix") = Trim(objRs("Prefix"))
				objAccessRs("LName") = Trim(objRs("LName"))
				objAccessRs("FName") = Trim(objRs("FName"))
				objAccessRs("MI") = Trim(objRs("MI"))
				objAccessRs("Title1") = Trim(objRs("Title1"))
				objAccessRs("Zip") = Trim(objRs("Zip"))
		   End If
		   objAccessRs.Close
		End If

		objRs.MoveNext
		llngCounter = llngCounter + 1
	Loop