Ciao ragazzi con il seguente codice vb mi resituisce l'errore e non capisco cosa non gli piace

codice:
Private Sub Command3_Click()

rapx = Form3.Width / VidWidth
rapy = Form3.Height / VidHeight

    stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    stringa = stringa & "C:\Users\ale\Desktop\db\mappatura.mdb"
    
    Set cn = New adodb.Connection
    Set rs = New adodb.Recordset
    
    cn.Open stringa
    rs.Open "SELECT * FROM coordinate ", cn, 1
    num = rs("Numero")
    cx = rs("x")
    cy = rs("y")
    
    
    While rs.EOF = False
        i = 1
        Timer1.Interval = 0
            GetCursorPos pp
            SetCursorPos pp.X, pp.Y
        
            pp.X = rs("x") / rapx + 7
            pp.Y = rs("y") / rapx + 28
            SetCursorPos pp.X, pp.Y
            DoEvents
            mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, longA, extrainfo 
            
            mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, longA, extrainfo
            rs.MoveNext
       For i = 1 To 65500
        Timer1.Interval = i
       Next
        
    Wend
ens sub
nell modulo ho inserito questo.
codice:
Public Declare Function mouse_event Lib "user32" (ByVal dwFlags As Long, _
ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
grazie in anticipo