VB+ACCESS里对象数据类型为文本如何取

Question

原来：
Dim usFinger() As Byte
usFinger = rsWork("XX").GetChunk(6000)
If (usFinger(0) And usFinger(1) And usFinger(2) And usFinger(3) And usFinger(4)) Then
字段名XX，为OLE对象。
现在:
字段名XX，为文本。
应该用什么名字来获取XX里面的数据呢？

Answer 1

Dim strFinger As String
strFinger = rsWork("XX")
If (Mid(strFinger, 1, 1) And Mid(strFinger, 2, 1) And Mid(strFinger, 3, 1) _
        And Mid(strFinger, 4, 1) And Mid(strFinger, 5, 1)) Then
End If

Answer 2

strFinger = rsWork("XX") & ""

Answer 3

Type mismatch-->If (Mid(strFinger, 1, 1) And Mid(strFinger, 2, 1) And Mid(strFinger, 3, 1) _
        And Mid(strFinger, 4, 1) And Mid(strFinger, 5, 1)) Then
谢谢。

Answer 4

usFinger = rsWork("XX").GetChunk(6000)
If (usFinger(0) And usFinger(1) And usFinger(2) And usFinger(3) And usFinger(4)) Then
MSFlexGrid1.AddItem CStr(iNo) + vbTab + rsWork("用户名") + vbTab + rsWork("用户等级") + vbTab + "无"
Else
MSFlexGrid1.AddItem CStr(iNo) + vbTab + rsWork("用户名") + vbTab + rsWork("用户等级") + vbTab + "有"
End If
猜测是从XX里面取出来5个特征数据，根据特征数据进行判断。

Answer 5

我觉得是判断Finger字段是否为空字段。所以可以这样写Dim strFinger As String
strFinger = rsWork("XX") & ""
If strFinger = "" Then
End If

Answer 6

我觉得是判断XX字段是否为空。如果我的判断正确，那就这样写：Dim strFinger As String
strFinger = rsWork("XX") & ""
If strFinger = "" Then
End If

Answer 7

Dim strFinger As String
strFinger = rsWork("Address") & ""
每次执行报Type mismatch。

Answer 8

你的rsWork是怎么声明的？Address字段是什么类型？你用的什么数据库？