BD relacional + Adodc

[netorres]

he realizado pruebas y tampoco me fuciona de esta forma:

adodcvinas.ConnectionString = "DSN=LocalServer"
adoCuartel.ConnectionString = "DSN=LocalServer"

strSql = "SELECT * FROM vina"
adodcvinas.RecordSource = strSql
adodcvinas.Refresh

strSql = "SELECT * FROM documentovendimiatipo "
adoCuartel.RecordSource = strSql
adoCuartel.Refresh


With adodcvinas.Recordset
adodcvinas.Recordset.AddNew
adodcvinas.Recordset.Fields("id_usuario") = Text1(0).Text
adodcvinas.Recordset.Fields("id_productor") = Text1(1).Text
adodcvinas.Recordset.Fields("vi_Codigo") = Text1(2).Text
adodcvinas.Recordset.Fields("vi_Nombre") = Text1(3).Text
adodcvinas.Recordset.Fields("vi_categoria") = Text1(4).Text
.Update
End With
sql = "select max(id_vina) as id_vina_max from vina"
adodcvinas.RecordSource = sql
adodcvinas.Refresh

With adoCuartel.Recordset
adoCuartel.Recordset.AddNew
adoCuartel.Recordset.Fields("id_vina") = adodcvinas.Recordset.Fields("id_max_vinas") adoCuartel.Recordset.Fields("id_usuario") = 1
adoCuartel.Recordset.Fields("cu_Nombre") = "cu1"
.Update
End With
End Sub



Me da el siguiente error:

3265

"No se encontro el elemento en la coleccion que corresponde con el nombre o el ordinal pedido"