Invalid use of property, returning recordset object from a function

[zeeshan12]

Hi,

I am running a simple select query on a connection with mysql database. On returning recordset froma function object I get an "Invalid use of property" error. I have no idea why its doing that.

I have tried the query in MySql and it works fine and gives the expected result.


Dim ConnectionStrin g As String
Set conn = New ADODB.Connectio n
ConnectionStrin g = "Driver={My SQL ODBC 3.51 Driver};Server= localhost;Port= 3306;Database=D b1;User=rr;Pass word=;Option=3; "
conn.Connection String = ConnectionStrin g
conn.CursorLoca tion = adUseClient
conn.Open

Public Function getUser() As ADODB.Recordset
Dim rs As ADODB.Recordset

Set rs = conn.Execute("S ELECT user_id, user From users ORDER BY rand( ) LIMIT 1")
'Set rs = New ADODB.Record
'rs.Open "SELECT user_id, user From users ORDER BY rand( ) LIMIT 1", conn
'rs.MoveFirst

getUserAgent = rs '''''''''''''(e rror on this line)

End Function



Anyone got any ideas?



Thanks

Zeeshan

[danp129]

'Function getUser' should be changed to 'Function getUserAgent' or getUserAgent should be changed to getUser.. would be where I would start..