A ben guardare mi sembra che ci sia una duplicazione (in rosso):
"SELECT Nome, NomeFile FROM Clienti WHERE Nome='" & FrmMain.txtnome.Text & "'"