Visual Basic - error 3001

hola que tal tengo un problema ya que al ejecutar mi prog me sale el error 3001 y me lo muestra en la linea sig:
Private Sub Command2_Click()
Set rs2 = New Recordset
rs2.Open "INSERT INTO ventas (clave, fecha_vta, num_emp, total_vta )values(" + tventa.Text + ", " + tfecha.Text + ", " + temp.Text + ",'" + Null + "'", _
cn, adOpenStatic, adLockOptimistic


rs2.Close
End Sub

tengo otros recordset pero no me marcan error solo este y todos los recordset que abro los cierro. si al rs2 le cambio la consulta por select * from ventas si funciona pero con la de insertar no.

alguien sabe por que gracias. ahhh y no estoy utilizando ado.

gracias.

No mijo, asi no funciona el asunto ...

mejor abre la la tabla ventas como decias anteriormente
pero cuando quieras agregar un record hazlo con addnew

rs2.addnew
rs2.fields("clave").value=tuvalor
rs2.fields("fecha_vta").value=tuvariable
rs2.update

y ya ... puedes hacer un insert pero usa la conexion en vez del recordset
cn.execute "insert into ventas(...."
suerte,

hola gracias por tu ayuda ya trate de implementar lo que me digiste y me genera otro tipo de error el 91 que dice que la variable del tipo object o la variable del bloque with no esta establecida y me marca el error en la linea rs2.addnew.
el codigo que puse es el sig:

Private Sub Command2_Click()
Set rs = New Recordset
rs.Open "select * from ventas ", _
cn, adOpenStatic, adLockOptimistic

rs2.AddNew
rs2.Fields("clave").Value = " + tventa.Text + "
rs2.Fields("fecha_vta").Value = " + tfecha.Text + "
rs2.Update
cn.Execute "INSERT INTO ventas (clave, fecha_vta, num_emp, total_vta )values(" + tventa.Text + ", " + tfecha.Text + ", " + temp.Text + ",'" + Null + "'", adOpenStatic, adLockOptimistic

Set rs2 = New Recordset
rs2.Open "INSERT INTO ventas (clave, fecha_vta, num_emp, total_vta )values(" + tventa.Text + ", " + tfecha.Text + ", " + temp.Text + ",'" + Null + "'", _
cn, adOpenStatic, adLockOptimistic


rs2.Close
End Sub
no si li implente mal o que si me puedes ayudar gracias.