Dim idx As Integer = Tables("表A").FindRow("name = '" & Vars("user") &"' And date1 = #" & CDate(e.Form.Controls("checkdate").TEXT) & "#")
msgbox(idx)
If idx >= 0 Then
Tables("表A").Position = idx
End If