我晕了!!!如何用vb以二进制打开dbf文件!!!

Private Sub Command1_Click()
    Dim intHandle As Integer
    Dim fileData() As Byte
    Dim i As Long
    
    intHandle = FreeFile
    
    Open "c:\temp\test.dbf" For Binary Access Read As #intHandle
    
    ReDim fileData(LOF(intHandle))
    
    Get #intHandle, , fileData
    
    For i = 0 To UBound(fileData)
        Text1.SelText = Format(Hex(fileData(i)), "00") & " "
        If (i Mod 16) = 0 Then
            Text1.SelText = vbCrLf
        End If
    Next
        
    Close #intHandle
End Sub上面的程序是将2进制文件输出到文本文件中,可运行后只是显示00
这是怎么回事??
我将"10001010101011101000001000010000101010010"写入文本文件去用2进制读这个文本文件也还是显示00
想要将dbf中的数据显示出来应该怎么办???!!!!!