no sia anno e numero sono numerici
Dim dbcerca As OleDbCommand = New OleDbCommand("Select Max(numero) as numer,anno from documenti where anno=" & Year(Now), conn)

dbcerca.CommandType = CommandType.Text
Try
cerca = dbcerca.ExecuteReader()
Catch ex As Exception
Exit Sub
End Try
l'eccezione da lerrore riportato prima