<P>try adding this line after </P>
<P>Dim con As New ADODB.Connection</P>
<P>Set con = CurrentProject.Connection</P>
<P>This tells it to use the current database.</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, 03:34 PM <BR>From : Oleg_123@xuppa.com <BR>To : accessd@databaseadvisors.com <BR>Copy to : <BR>Subject : Re: [AccessD] still struggling with inserting to access table <BR>I thought I was using the default connection ? <BR><BR>Also I tried it using this <BR>DoCmd.RunSQL "INSERT into Table1Testing(a,b) Values(" & aRecord(0) & ", " <BR>& aRecord(8) & ")" <BR><BR>but I get some pitiful results :( <BR><BR>> As far as I can see you haven't setup a connection into the database for <BR>> the con variable, so it would be closed when you try the command <BR>> con.execute. Paul <BR>> <BR>> <BR>> <BR>> <BR>> 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 I <BR>> 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 <BR>> closed" 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><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>