Andra gången = Table not exist

Andra gången så "finns inte" tabellen, varför?

Sub myDBget(calSql)
	Set calConn = Server.CreateObject("ADODB.Connection") 
	calConn.Open "Provider=MySQLProv;Data Source=*******;User Id=*******;Password=********;"
	Set calRS = calConn.Execute(calSql)
	If not calRS.EOF then arrcalRS = calRS.getrows()
	calRS.Close : Set calRS = Nothing
	calConn.Close : Set calConn = Nothing
End sub 

'...

call myDBget("SELECT calbody FROM myCal WHERE myDate=date()")
'Skriver ut
call myDBget("SELECT calbody FROM myCal")
[red][b]Provider error '80040e37' 

Table does not exist.[/b]
[/red]