关于数据库的“3219”错误，在此环境下不允许操作
我编写了一个简单的数据库对BLOB的数据处理，代码如下：
Private Sub Command1_Click()
Dim strb() As Byte
cd1.ShowOpen
Open cd1.FileName For Binary As #1 '以二进制读方式打开源文件
fl = LOF(1) '取得文件长度（以字节为单位）
ReDim strb(fl)
Get #1, , strb '读文件到数组中
Adodc1.Recordset.Fields("照片").AppendChunk strb '写入到数据库
Close #1
Image1.Picture = LoadPicture(cd1.FileName) '更新Image1中的图形
End Sub

数据连接正常，就是在执行图片写入数据库这条命令时不行了，这是为什么，谢谢大侠相救！！！

[解决办法]
adodc控件已经很久不用了。
如果用 rs 对象，在执行sql之前必须先把 rs 关闭，才能 open 一个sql语句。
不知道你用的adodc是不是这样试一下。