VBA para conectar con base de datos MsSQL externa sin más

[Batusai]

Muchas gracias por atender mi duda.

Lo que ocurre es que no estoy escribiendo ninguna aplicación sino usndo directamente una macro de Outlook.

Tienes razón, la base externa es Ms Sql Server

En ese caso, ¿cómo debería cambiar el código?

Código vb:

Set rs = CreateObject("ADODB.Recordset") 
    Server_Name = "BATU-INTER-DB"
    Database_Name = "ClienteAlpha" ' Name of database
    User_ID = "alpharead" 'id user or username
    Password = "alpha4read!" 'Password
 
    SQLStr = "SELECT * From ClienteAlpha.dbo.toditodos tdd (nolock) WHERE tdd.toditodos_Data = 'Spain';"
 
    Set cn = CreateObject("ADODB.Connection") 'NEW STATEMENT
    cn.Open "Driver={MySQL ODBC 5.2.2 Driver};Server=" & _
            Server_Name & ";Database=" & Database_Name & _
            ";Uid=" & User_ID & ";Pwd=" & Password & ";"
 
    rs.Open SQLStr, cn, adOpenStatic
 

Muchas gracias :)