关于不能导入数据

老师关于GETF自定义函数上面有写，都 是这样出现错误提示码

现在有个问题，如是用ACCess上的表，按照上述的代码是可以导入数据，但换成数据库上的表是不能导入

究竟问题何在，请明确指导，感谢！

Function GetFldName(Combo As ComboBox, XlsFld As Object)
    Dim intI As Integer
   
    GetFldName = Null
    For intI = 0 To Combo.ListCount
        If Combo.Column(0, intI) = XlsFld Or Combo.Column(1, intI) = XlsFld Then
            GetFldName = Combo.Column(0, intI)
            Exit For
        End If
    Next
End Function