Hasta donde yo se no, pero se me ocurre que puedes arreglar algo así:
'Extraes toda la cadena menos el primer caracter
cadena= mid(rs("campo"),2,len(rs("campo")))
'Extraes el primer caracter
primer_c= left(rs("campo"), 1)
primer_c= Ucase(primer_c)
Response.write(primer_c & cadena)
No lo he probado pero podría funcionar
Salu2,