要从SQL数据库中提取XML格式数据，并将其存储在ADODB Recordset中，可以使用以下示例代码解决此问题：

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=YourServerName;Initial Catalog=YourDatabaseName;User ID=YourUsername;Password=YourPassword;"
conn.Open

Set rs = New ADODB.Recordset
rs.Open "SELECT XMLData FROM YourTableName", conn, adOpenStatic, adLockReadOnly

If Not rs.EOF Then
    ' 从Recordset中读取XMLData字段的值
    Dim xmlData As String
    xmlData = rs.Fields("XMLData").Value

    ' 在此处对XML格式数据进行处理
    ' ...

    ' 关闭Recordset和连接
    rs.Close
    Set rs = Nothing

    conn.Close
    Set conn = Nothing
End If

请根据实际情况修改连接字符串中的服务器名称、数据库名称、用户名和密码，以及查询中的表名和字段名。

此代码首先创建一个ADODB连接对象，并使用适当的连接字符串打开连接。然后，它创建一个ADODB Recordset对象，并执行SQL查询以从数据库中获取XMLData字段的值。如果Recordset不为空，它可以使用rs.Fields("XMLData").Value将XML数据存储在一个字符串变量中。

最后，代码关闭Recordset和连接对象，以释放相关资源。