I am trying to pass 2 parameters in a sub routine

[lewie]

I have the following code:
Public Sub ExportADOXML(strTableName As String, f As String)
' Export the specified table as XML, using the
' ADO XML format rather than native Access format
Dim rst As ADODB.Recordset

On Error GoTo HandleErr
Stop
Set rst = New ADODB.Recordset
rst.Open strTableName, CurrentProject.Connection
rst.Save f, adPersistXML

rst.Close
Set rst = Nothing

ExitHere:
Exit Sub

HandleErr:
MsgBox Err.Number & ": " & Err.Description, vbCritical, _
"ExportADOXML"
Resume ExitHere

End Sub
I test it in immediate window like ExportADOXML("tblCompany", "Lew") and it keeps bombing saying "Compile error expected = "
Please Help!
TIA
Lewie

 

[PHV]

Get rid of the parens, like this:
ExportADOXML "tblCompany", "Lew"
Or use the CALL instruction, like this:
Call ExportADOXML("tblCompany", "Lew")

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244