ConnectDB("movie.dat.MDB")
Dim Crs As New ADODB.Recordset
Cexec = "select * from Seriallist"
Crs.Open Cexec, Conn, 1, 3    
While Not Crs.EOFDim Crsa As New ADODB.Recordset
Cexeca = "select * from where 名称='" &  Crs("名称") & "'"
Crsa.Open Cexeca, Conn, 1, 2                               '这里提示会对象已关闭
If Not Crsb.EOF = False Then
            Crsa.AddNew
            Crsa("名称") = Crs("名称")
            Crsa("链接地址") = Crs("链接地址")
            Crsa.Update
end if
Crs.MoveNext
Wend