在Access数据库的列中包含空格的问题，可以使用SQL查询语句来解决。下面是一个示例代码：

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

' 打开数据库
Set db = CurrentDb

' 构建SQL查询语句
strSQL = "SELECT [列名] FROM [表名] WHERE [列名] Like '* *'"

' 执行查询语句
Set rs = db.OpenRecordset(strSQL)

' 遍历结果集
If Not rs.EOF Then
    rs.MoveFirst
    Do Until rs.EOF
        ' 处理包含空格的值
        Debug.Print rs![列名]
        
        rs.MoveNext
    Loop
End If

' 关闭记录集和数据库
rs.Close
Set rs = Nothing
Set db = Nothing

请替换代码中的[列名]和[表名]为实际的列名和表名。这段代码会查询包含空格的列值，并将结果打印到调试窗口中。你可以根据实际需求，修改代码以执行其他操作，例如更新或删除包含空格的值。