用vb上传文件到数据中，只能上传一次不能再点一次就提示出错

[houdi2108]

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream

Private Sub Form_Load()
        Set cn = New ADODB.Connection
        Set rs = New ADODB.Recordset
        Set mstream = New ADODB.Stream
End Sub
Private Sub cmdSaveFile_Click()
        cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=saveFile;Data Source=PCOS-05071342"
        rs.Open "select   *   from   TestPpt ", cn, 1, 3
        mstream.Type = adTypeBinary
                
        SQL = "select filename from testppt where filename like FilePPT.fileName"
        If rs.RecordCount >= 1 Then
            MsgBox "您要上传的内容已存在", vbOKCancel + 32, "提示"
        End If
        mstream.LoadFromFile "\test.ppt"
       
        
        rs.AddNew
        rs.Fields("Filecontents") = mstream.Read
        rs!fileName = FilePPT.fileName
       
        rs.Update
        
        rs.Close
 
End Sub

提示：对象打开时不允许操作。
而且上传相同的文件名时也不提示

[bigfish_cq]

联接重复打开，当然不行了

[饮水需思源]

if cn.state<>adstateclosed then cn.close
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=saveFile;Data Source=PCOS-05071342"
if rs.state<>adstateclosed then rs.close
rs.Open "select   *   from   TestPpt ", cn, 1, 3