Conectarse a SQL Server

Una cómoda manera de conectarse a SQL Server mediante un DSN

cCadConnDSN = "DRIVER=SQL Server;" ;
  + "SERVER=tu_server;" ;
  + "UID=nombre_usuario;" ;
  + "PWD=clave_pw;" ;
  + "DATABASE=PUBS;" ;   && Nombre de la base de datos
  + "WSID=nombre_usuario;" ;
  + "APP=__"
nHanConn = SQLSTRINGCONNECT(m.cCadConnDSN)
IF nHanConn > 0
  =MESSAGEBOX("Conectado a la base de datos de SQl Server")
ELSE
  =MESSAGEBOX("Error al conectarse a la base de datos de SQl Server")
ENDIF

Jimmy Pozo Jiménez