mi sembra di capire dalle immagini allegate che la select trovi un unico record e quindi il tuo array myrow() abbia un unico elemento, per questo ti dice che hai superato le dimensioni massime dell'array.
quando recuperi i campi l'inidice non deve cambiare:
Me.TextBox6.Text = CStr(myrow(0)("NomeProvincia"))
Me.TextBox14.Text = CStr(myrow(0)("CodiceProvincia"))
Me.TextBox15.Text = CStr(myrow(0)("CodiceRegione"))