ÏÂ Ãæ ÊÇ Ò» ¸ö Ê¾ Àý ´ú Âë £º 
    Dim dbRecod As Database 
    Dim rdRecord As Recordset 
    Dim s As String 
    Dim sID As String 
     
    Set dbRecord = WorkSpace(0).OpenDatabase("YourDB.mdb") 
    Set rdRecord = dbRecord.OpenRecordset("YourTable") 
    Open "record.txt" For Input As #1 
    While Not Eof(1) 
     Line Input #1, s 
     sID = Mid(s, 5, 5) 
     rdRecord.FindFirst "[Ö° ¹¤ ±à ºÅ ] = '" + sID + "'" ' ×¢ Òâ Õâ Àï ¼Ù ¶¨ Äã µÄ Ö° ¹¤ ±à ºÅ ×Ö ¶Î Îª ×Ö ·û ÐÍ 
     If rdRecord.NoMatch Then 
     ' ³ö ´í 
     Else 
     rdRecord.Edit 
     rdRecord("Ë¢ ¿¨ ÈÕ ÆÚ ") = DateSerial(Val(Mid(s, 12, 2)), Val(Mid(s, 14, 2)), Val(Mid(s, 16, 2)) 
     rdRecord("Ë¢ ¿¨ Ê± ¼ä ") = TimeSerial(Val(Mid(s, 20, 2)), Val(Mid(s, 22, 2)), 0) 
     rdRecord.Update 
     End If 
    Wend 
    rdRecord.Close 
    dbRecord.Close 
<END>