no se que hacer

[cxbxvx]

holas, acabo de corregir lo que me dijiste, ahora no me arroja ningun error , pero lo que pasa que al revisar la base de datos para ver los datos si se guardaron me encuentro con que solamente se ingresaron solamente a una sola tabla y a las otras dos no se ingreso nada
esta es la que ingresa sSQL="Insert Into proveedor (rut_proveedor,razon_social_proveedor,fono_proveed or,correo_electronico_proveedor) values ('" & rutproveedor & "','" & razonsocial & "','" & fono & "','" & correo & "')"
despues de corregir quedo asi
<%
'Recogemos los valores del formulario
rutproveedor = Request.Form("rutproveedor")
razonsocial = Request.Form("razonsocial")
fono = Request.Form("fono")
correo=request.form ("correo")
calle=request.form ("calle")
numero=request.form ("numero")
comuna=request.form ("comuna")

dim conn,rst
' Creamos la conexión a la base de datos sin DSN
set conn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "DRIVER={Microsoft Access DRIVER (*.mdb)}; DBQ=" & Server.MapPath("inventario.mdb")
'Ahora creamos la sentencia SQL
sSQL="Insert Into proveedor (rut_proveedor,razon_social_proveedor,fono_proveed or,correo_electronico_proveedor) values ('" & rutproveedor & "','" & razonsocial & "','" & fono & "','" & correo & "')"
set RS = Conn.Execute(sSQL)
sSQL="Insert Into direccion (calle_direccion,numero_direccion) values ('" & calle & "'," & numero & ")"
set RS = Conn.Execute(sSQL)
sSQL="Insert Into comuna (nombre_comuna) values ('" & comuna & "')"
'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
%>



<%
'Cerramos el sistema de conexion
Conn.Close
%>
ojala me digan el porque pasa o si tengo que arreglar algo