Dim id as integer = Tables("xxx").Current("_Identify")
载入数据
Tables("xxxx").Position = Tables("xxxx").FindRow("[_Identify] = " & id, 0, False)