DATAGRID为什么不执行IF 而是去执行 Else 行设置不可用

DATAGRID为什么不执行IF 而是去执行 Else person1 = DataGrid1.Columns(2)行设置不可用Private Sub DataGrid1_DblClick()
If IsNull(DataGrid1.Columns(0)) = True Then
MsgBox "记录为空，不能查看详细结果"
Else
Frame2.Visible = True
person1 = DataGrid1.Columns(2)
obj_id1 = DataGrid1.Columns(0)
Text1.Text = Combo1.Text
Text3.Text = DataGrid1.Columns(1)
Text9.Text = DataGrid1.Columns(5)
Text7.Text = DataGrid1.Columns(3)
Text8.Text = DataGrid1.Columns(6)
If DataGrid1.Columns(4) = -1 Then
Text4.Text = "男"
End If
If DataGrid1.Columns(4) = 0 Then
Text4.Text = "女"
End If
Me.Adodc1.RecordSource = "select * from person where id='" & person1 & "'"
Me.Adodc1.Refresh
If Me.Adodc1.Recordset.RecordCount = 0 Then
MsgBox "记录为空..."
Else
For i = 1 To Me.Adodc1.Recordset.RecordCount
Text6.Text = Me.Adodc1.Recordset.Fields("name")
Me.Adodc1.Recordset.MoveNext
Next i
Me.Adodc1.RecordSource = "select * from device_pro where id='" & obj_id1 & "'"
Me.Adodc1.Refresh
For i = 1 To Me.Adodc1.Recordset.RecordCount
Text2.Text = Me.Adodc1.Recordset.Fields("name")
Me.Adodc1.Recordset.MoveNext
Next i
Me.Adodc1.RecordSource = "select * from unit where id in (select owner_id from device_pro where id='" & obj_id1 & "')"
Me.Adodc1.RefreshFor i = 1 To Me.Adodc1.Recordset.RecordCount
Text5.Text = Me.Adodc1.Recordset.Fields("name")
Me.Adodc1.Recordset.MoveNext
Next i
End If
End If
End Sub