Se ho capito bene, prova cosi'
While not myRS.EOF
If "" & rs.fields(XXX) <> "" then
Lett = myRS.Fields(XXXXX).Value
Connessione(Index).SendData Lett & vbCrLf
End If
myRS.MoveNext
Wend