ADODB Execute Return Code

Dim connection As new ADODB.connection
With connection
.ConnectionString =  "... " 'mein Connection String
.ConnectionTimeout = 10
.Open
If .state = 1 then 'Verbindungsaufbau erfolgreich
.Excecute (...) 'meine SQL Insert-Anweisung
Else
'Fehlermeldung, keine Verbindung
End if
End With