A name was started with an invalid character

[kenny_oh]

first line of the code below cause some error "A name was started with an invalid character".............what is the error??

<% Response.ContentType = "application/xml" %>

<?xml version="1.0" encoding="UTF-8"?>
<?xml:stylesheet type = "text/xsl" href ="NBAGuideTransform.xsl"?>

<TVSchedule>
	<TVGuide>
<%

Dim adoConnect
Dim adoRecordset

Set adoConnect = Server.CreateObject("ADODB.Connection")

adoConnect.open = "Provider=Microsoft.Jet.OLEDB.4.0;" & "DataSource=C:\NBATVGuide.mdb"

Set adoRecordset = adoConnect.Execute("Select ProgramTitle, ProStartTime from tblNBASchedule order by ProStartTime")

Do While Not adoRecordset.EOF
	Response.Write "<ProgramTime>" + adoRecordset("ProStartTime") + "</ProgramTime>"
	Response.Write "<ProgramTitle>" + adoRecordset("ProgramTitle") + "</ProgramTitle>"
	adoRecordset.MoveNext
Loop

adoRecordset.Close

set adoRecordset = Nothing

%>
	</TVGuide>
</TVschedule>