Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

sei sicuro che cn rs non si trovino anche definiti nel form ?
non ho capito l'uso della costante ID

Ciao !