Allora mi sembra che il tuo problema è che esegui la lettura dei campi del recordset iniziando dal secondo campo, infatti usi l'indice 1.
Invece la collection Fields è a base 0, mentre le colonne di Excel partono da 1.
Questo spiegherebbe il perchè all'ultimo campo ti risponde Null.

Dovresti partire da 0, ovvero:

codice:
If IsNull(Rs_Excel(0).Value) Then Var_1 = "" Else Var_1 = Rs_Excel(0).Value