代码在win2003下能运行，在xp下不能运行

Dim conn As New ADODB.connection
        Dim rst1 As New ADODB.Recordset
        Set conn = CurrentProject.connection
        rst1.Open "查询条件表", conn, adOpenKeyset, adLockOptimistic
       
        If Not rst1.RecordCount = 0 Then
        rst1.Delete
        rst1.Update
        End If
        rst1.AddNew
        rst1![发货开始日期] = Me.发货开始日期
        rst1![发货结束日期] = Me.发货结束日期
        rst1![回款开始日期] = Me.开始日期
        rst1![回款结束日期] = Me.结束日期
        rst1![发货月数] = Nz(Me.发货n月)
        rst1![计息率] = Nz(Me.计息率)
       
       
        rst1![行销公司部门编号] = Replace(Replace(Nz(Me.行销公司部门编号), "?", "_"), "*", "%")
        rst1![药品代号] = Replace(Replace(Nz(Me.药品代号), "?", "_"), "*", "%")
        rst1![是否为推广产品] = Replace(Replace(Nz(Me.是否为推广产品), "?", "_"), "*", "%")
        rst1![药批名称] = Replace(Replace(Nz(Me.药批名称), "?", "_"), "*", "%")
        rst1.Update
    rst1.Close
    conn.Close
    Set rst1 = Nothing
    Set conn = Nothing