RDO通过ODBC访问Sql Server 2000
代码:
Dim Rst As rdoResultset
    SQL = "select * from clientinfo "
    Set Rst = Cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
    With infoRst
            .AddNew
            !clientname = Trim(Txtname.Text) '
            !NativePlace = Trim(Txtaddress.Text) '
            !cardid = Trim(TxtcardId.Text) '
           .Update  '这里出错!!!
     End With
出错信息:
实时错误:40002
01000:[Microsoft] [ODBC SQL Server Driver] [SQL Server]语句已终止
郁闷啊!!!