<P>As far as I can see you haven't setup a connection into the database for the con variable, so it would be closed when you try the command con.execute.</P>
<P>Paul<BR><BR><BR><BR></P>
<BLOCKQUOTE style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #ff0000 2px solid">Message date : Oct 16 2003, 02:59 PM <BR>From : Oleg_123@xuppa.com <BR>To : accessd@databaseadvisors.com <BR>Copy to : <BR>Subject : [AccessD] still struggling with inserting to access table <BR>I still haven't done this inseting of .csv in access table (had other <BR>things to do first)Those 2 lines still dont work <BR>strSQL = "INSERT into Table1Testing(a,b) Values(" & aRecord(0) & <BR>"," & aRecord(8) & ")" <BR>con.Execute (strSQL) <BR><BR>whats wrong here ? When I run similar message from query window it works <BR>fine. This way I get "Operation is not allowed when the object is closed" <BR>error. # 3704 (the first part works more or less correctly) <BR><BR>Dim fs As New Scripting.FileSystemObject <BR>Dim ts As Scripting.TextStream <BR>Dim strLine As String <BR>Dim aRecord <BR>Dim strSQL As String <BR>Dim con As New ADODB.Connection <BR><BR>If fs.FileExists("U:\Users\HRIS\oleg\cars testing\trainFROM.csv") Then <BR><BR>Set ts = fs.OpenTextFile("U:\Users\HRIS\oleg\cars <BR>testing\trainFROM.csv", ForReading) <BR><BR>Do Until ts.AtEndOfStream <BR><BR>strLine = ts.ReadLine <BR>'strline = <BR>aRecord = Split(strLine, ",") <BR>aRecord(8) = Mid(aRecord(8), 5) & Left(aRecord(8), 4) <BR>Debug.Print aRecord(6) & " " & aRecord(7) & " " & aRecord(8) <BR><BR>strSQL = "INSERT into Table1Testing(a,b) Values(" & aRecord(0) & <BR>"," & aRecord(8) & ")" <BR>con.Execute (strSQL) <BR><BR>Loop <BR>Else <BR>MsgBox ("file doesn't exist") <BR>End If <BR><BR><BR><BR>----------------------------------------- <BR>Get Breaking News from CNN, ABC, NBC, CBS Now. <BR>http://www.xuppa.com/news/?link=webmail <BR><BR><BR>_______________________________________________ <BR>AccessD mailing list <BR>AccessD@databaseadvisors.com <BR>http://databaseadvisors.com/mailman/listinfo/accessd <BR>Website: http://www.databaseadvisors.com <BR></BLOCKQUOTE>