SoloCodigo

Hola a todos!    estoy trabajando con visual basic 6.0 y firebird (antiguo interbase de borland), el caso es que intento utilizar el recordset para insertar datos en la base de datos, y no hay manera... me sale el siguiente mensaje de error:  el recordset actual no admite actualizaciones, puede ser una limitación del proveedor o del tipo de bloqueo seleccionado. El código que tengo es el siguiente:

Option Explicit

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

Private Sub Form_Load()


    Set rst = New ADODB.Recordset

 
  cnn.Open "DRIVER=Firebird/InterBase® driver;UID=SYSDBA;PWD=masterkey;Server=SERVIDOR;DBNAME=SERVIDOR:BDatNueva"
End Sub

Private Sub Command1_Click()
 
  rst.ActiveConnection = cnn
  rst.Source = "select TCALDERAS.MODELO, TCALDERAS.FABRICANTE from TCALDERAS"
 
  cnn.BeginTrans
  rst.Open
 
 
  With rst
    .AddNew "TCALDERAS.MODELO", Text1.Text
    .Fields("TCALDERAS.MODELO").Value = Text1.Text
    .Update
  End With

 
cnn.CommitTrans
  Command1.Enabled = False
 
   rst.Close
   cnn.Close
   Set rst = Nothing
   Set cnn = Nothing

End Sub

Si alguien pudiese orientarme sobre el tema, se lo agradeceria mucho, es la primera vez que uso estas tecnologías y es un mundo totalmente desconocido para mi. Por lo que he podido ver creo que pueda deberse a las propiedades del recordset (que este en solo lectura.. o algo asi), ya que utilizando insert desde  visual basic si que me inserta los datos en la tabla sin problemas...  

Muchas gracias, saludos!!