Hi:

Function BDSql(strComputer)

Dim strSql 'Used to hold the SQL Query

Dim objConn 'Used for the Connection object

Dim objRst 'Used for the Recordset object

Dim fecha

SQLDMOSecurity_Integrated ...