急！！！请大家帮忙 运行这段代码时总是出现实时错误91，对象变量或with块未设置

Question

运行这段代码时总是出现实时错误91，对象变量或with块未设置，请问怎么修改？ 
Public Sub SaveDoc(ByVal Docfile As String, _
                     TmpAdodc1 As Adodc, vField As Integer)
  
 
  If TmpAdodc1.Recordset.EOF = True Then
    Exit Sub
  End If
  If Docfile = "" Then
    Exit Sub
  End If
  '提供一个尚未使用的文件号
  SourceFile = FreeFile
  '打开文件
  Open Docfile For Binary Access Read As SourceFile
  '得到文件长度
  FileLength = LOF(SourceFile)
  '判断文件是否存在
  If FileLength = 0 Then
    Close SourceFile
    MsgBox DiskFile & "无内容或不存在!"
  Else
    NumBlocks = FileLength \ BlockSize '得到数据块的个数
    LeftOver = FileLength Mod BlockSize '得到剩余字节数
    TmpAdodc1.Recordset.Fields(vField).Value = Null
    ReDim byteData(BlockSize) '重新定义数据块的大小
    For i = 1 To NumBlocks
      Get SourceFile, , byteData() '读到内存块中
      TmpAdodc1.Recordset.Fields(vField).AppendChunk byteData()  '写入FLD
    Next i
    ReDim byteData(LeftOver) '重新定义数据块的大小
    Get SourceFile, , byteData() '读到内存块中
    TmpAdodc1.Recordset.Fields(vField).AppendChunk byteData()  '写入FLD
    Close SourceFile '关闭源文件
    TmpAdodc1.Recordset.Update
  End If
End Sub