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

Sub zSql_Execute(sDsn, sSql)

	Dim oCon

	Set oCon=CreateObject("ADODB.Connection")

	oCon.Open("DSN=" & sDsn)

	oCon.Execute sSql

	oCon.Close

	Set oCon=Nothing

End Sub

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