Hola,
para lo del vector:
Código:
Dim MiVector() As Integer ' el campo IDCliente es numérico
Dim i As Integer
ReDim MiVector(rs.RecordCount - 1)
Do Until rs.EOF
MiVector(i) = rs(0)
i = i + 1
rs.MoveNext
Loop
Aquí al recordset le hemos llamado "rs" (es lo mismo que tu "a")
Para lo de la fecha:
Código:
Dim ProximaFecha As Date
ProximaFecha = DateAdd("d", 7, Date)
MsgBox ProximaFecha