vb程序显示 无效使用NULL 麻烦请看错在哪了

Private Sub sjbcx0(mb As Integer, l_AdoConn As ADODB.Connection) '变电所
Dim msj As Integer
Dim rowCon As Integer
Dim l_Sql As String
Dim l_Flag As Integer
Dim DLCursor As New ADODB.Recordset

l_Sql = "select * from [day" + m_Day + "$]"
DLCursor.Open l_Sql, l_AdoConn, adOpenKeyset, adLockOptimistic

rowCon = mb

If Not DLCursor.EOF Then
DLCursor.MoveFirst
Else
Call FCloseRdt(DLCursor)
Exit Sub
End If
msj = 1
Do While Not DLCursor.EOF
If msj < 25 Then
If CStr(DLCursor.Fields(mb + 1).Value) = Null Then
l_Flag = MsgBox(MSF.TextMatrix(0, rowCon) + MSF.TextMatrix(msj, 0) + _
"的电量可能为空,是否继续导入数据？", vbYesNo)
If l_Flag = 6 Then
MSF.TextMatrix(msj, rowCon) = CInt(DLCursor.Fields(mb + 1).Va

VB连接数据库问题 实时错误94 无效使用NULL 求救:无效使用NULL 无效使用Null: 'Split' 无效使用 Null: 'clng' 急救!无效使用 Null: 'Cint' 无效使用 Null : "replace" 的问题 无效使用 Null: 'replace'，什么问题？ VB中属性的使用无效是什么 程序如下 Private Sub Form_Load() VB 程序的问题，高手请看～！ VB NULL值问题