'========================================

Function zSql_Exists(sDsn,sSql)

	Dim oCon, oRec

	Set oCon=CreateObject("ADODB.Connection")
	Set oRec=CreateObject("ADODB.Recordset")

	oCon.Open ("DSN=" & sDsn)

	oRec.Open sSQL,oCon

	If oRec.Eof Then
		zSql_Exists = False

	Else
		zSql_Exists = True

	End If

	oRec.Close
	oCon.Close

	Set oRec=Nothing
	Set oCon=Nothing

End Function

'========================================