copiar en dos bases de datos

[normab]

Hola chicos tengo una pagina para insertar imagenes en una db y aparte quiero que guarde algunos datos en otra tabla pero no lo hace
aca pongo el codigo.
<%= fileName %> datos recibidos ...<br>
<%
' Checking to make sure if file was uploaded
If fileSize > 0 Then

' Connection string
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("DB.mdb")

' Recordset object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "pymes", connStr, 2, 2

' Adding data
rs.AddNew
rs("nombre") = nombre
rs("apellido") = apellido
rs("logo").AppendChunk fileData
rs("empresa") = empresa
rs("usuario") = usuario
rs("clave") = calve
rs("direcion") = direccion
rs("localidad") = localidad
rs("email") = mail

rs("permiso") = rubro

rs.Update
sqltxt1="Insert into usuarios(usuario,clave,empresa,nombre,apellido,ema il) values ('"&usuario&"' , '"&clave&"' ,'"& empresa &"' ,'"& nombre &"','"& apellido &"','"& mail &"')"
connStr.Execute (sqltxt1)
rs.Close
Set rs = Nothing

Response.Write "<font color=""green"">Los datos fueron ingresados correctamente...</font>"
Else
Response.Write "<font color=""brown"">Selecione el logo de la empresa o en su defecto una foto...</font>"
End If


If Err.number <> 0 Then
Response.Write "<br><font color=""red"">Something went wrong...</font>"
End If
%>