[RESOLVED] RecordCount return -1

[ClOuD_Za]

Hi all. Please take a look at code below. Just simple select the table but it return -1. What have to be fixed ? Please help...

### GLOBAL VARIABLE ###

Private db As ADODB.Connection
Const DBNAME = "\DSDW2.mdb;"

### Sync Down BUTTON ###

Private Sub cmdSyncdown_Click()
Dim ConnectionString As String
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & DBNAME

Set db = New ADODB.Connection
db.Open (ConnectionString)
db.BeginTrans

'CALL METHOD HERE THEN SET Success Flag
Dim tmpQueryStr As String
tmpQueryStr = "VALID SQL SELECT STATEMENT HERE"

Dim result As Integer
result = conn.Execute(tmpQueryStr).RecordCount '#### THIS LINE ... result = -1 ####

If result > 0 Then
    tmpQueryStr = "MSACCESS TESTED SQL UPDATE STATEMENT HERE"
    ExecuteDB(tmpQueryStr)
Else
    tmpQueryStr = "MSACCESS TESTED SQL INSERT STATEMENT HERE"
    ExecuteDB(tmpQueryStr)
End If

If Success Then
    db.CommitTrans
Else
    db.RollbackTrans
End If

db.Close
End Sub

### FUNCTION ###

Public Function ExecuteDB(ByVal QueryStr As String, ByRef db As ADODB.Connection) As ADODB.Recordset
    On Error GoTo ErrorHandling:
    Dim rs As New ADODB.Recordset
    Set rs = db.Execute(QueryStr)
    Set ExecuteDB = rs
    Exit Function
ErrorHandling:
    MsgBox QueryStr
    Success = False
    Set ExecuteDB = Nothing
End Function

### END OF CODES ###