一段代码异常在哪，如何想也没想明白

请教各位一段代码错误在哪，怎么想也没想明白？
Dim i As Long
Dim j As Long
Dim SQL1 As String
Dim SQL2 As String
Private Sub Check1_Click()
    If Check1.Value Then
     SQL1 = " MSHFlexGrid1.TextMatrix(i, j + 7) <> "" """
    Else
     SQL1 = " MSHFlexGrid1.TextMatrix(i, j + 7)= "" "
    End If
End Sub
Private Sub Check2_Click()
    If Check2.Value Then
       SQL2 = "MSHFlexGrid1.TextMatrix(i, j + 8) <>"" """
    Else
       SQL2 = "MSHFlexGrid1.TextMatrix(i, j + 8) = """
    End If
End Sub
Private Sub Command1_Click()
if SQL1 and  SQL2 then
MsgBox "请输入完整信息"
End Sub
各位以上代码当我选择Check1和Check2为true时，SQL1语句SQL2正确，当Check1和Check2为false时,SQL为空，请问各位怎么回事
应该怎么改呢？

------解决方案--------------------
Private Sub Check2_Click()
    If Check2.Value Then
       SQL2 = "MSHFlexGrid1.TextMatrix(i, j + 8) <>"" """
    Else
       SQL2 = "MSHFlexGrid1.TextMatrix(i, j + 8) = "" """
    End If
End Sub
必须发生Click才能产生的，你没选择不发生