Runtime Error 3001 : The application is using arguments.........

[ascom]

I want to export data from the Ms-Access database to the excel file thru VB.
I have written the following code on the click of a button.......

Open_Connection
sqlstr = "Select * from report"
MyRS2.CursorLocation = adUseClient
MyRS2.Open sqlstr, myconn, adOpenStatic, adLockBatchOptimistic
MyRS2.MoveFirst

Public Sub Open_Connection()
Dim database As String
database = "autodial"
Set myconn = New ADODB.Connection
myconn.ConnectionString Provider=Microsoft.Jet.OLEDB.3.51;Data Source= autodial.mdb;"
myconn.Open
End Sub

now in this code this error is coming "runtime error 3001 : The application is using arguments that are of wrong type, are out of acceptable range, or are in conflict with one another". This error is coming while opening the connection i.e. myrs2.open sqlstr....... statement.

what is the problem in this code?

[Cimperiali]

This usally happens when you're using a provider that does not
support some operations (like fetching, which in your case,
is indicated by the "adLockBatchOptimistic")
You can try:
a)
change provider (try jet 4.0)
or b)
Open serverside,
create a NewRs clientside
Mapp all fields to new rs
Copy all records
close first recordset
return NewRs

[Thread1]

Watch out for this one.. I think you have missed something..

myconn.ConnectionString Provider=Microsoft.Jet.OLEDB.3.51;Data Source= autodial.mdb;"


It must be...

myconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source= autodial.mdb;"

[Cimperiali]

I completely missed the main thing! Nice you saw it!!
Strange mistake, however: Vb should not let it pass...

By the way ascom:
if you do not attach anything else, skip last ";"