Dim rs As New ADODB.Recordset
   
    If IsNull(Me.id) Or Me.id = "" Then
        MsgBox "請(qǐng)輸入要查找的 id", vbExclamation + vbOKOnly, "查找"
        id.SetFocus
    Else
        If Not IsNumeric(Me.id) Then
            MsgBox "id 為數(shù)字值, 請(qǐng)重輸", vbExclamation + vbOKOnly, "查找"
            id.SetFocus
        Else
            With rs
                .Open "SELECT * FROM lge WHERE id=" & Me.id, CurrentProject.Connection
                If .EOF And .BOF Then
                    MsgBox "沒(méi)有找到 id 為" & Me.id & " 值的記錄, 請(qǐng)重輸 id", vbExclamation + vbOKOnly, "查找"
                    id.SetFocus
                Else
                    Me.日期 = rs("日期")
                    Me.車輛 = rs("車輛")
                    Me.當(dāng)日里程 = rs("當(dāng)日里程")
                   
                    Call SetButt("查看")
                End If
            End With
        End If
    End If