Dim adocndata As New ADODB.Connection
Dim adorsdata As New ADODB.Recordset
adocndata.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" & App.Path
adorsdata.Open "select * from " & ptFileName, adocndata, adOpenKeyset, LockPessimistic
Dim arr() As String
'adocn.Execute "delete from testtmp"
If adors.state = 1 Then adors.Close
adors.Open "select * from test where 1 <>1", adocn, adOpenKeyset, adLockPessimistic