I'm using VB6 and SQL Server 7
Here is the code
Dim rcd As New ADODB.Recordset
Private Sub cmdGuardar_Click()
Dim sSQL As String
sSQL = "select * from alta_prod where id_prod = 0"
rcd.Open sSQL, cn, adOpenKeyset, adLockOptimistic
rcd.AddNew
rcd.Fields("ID_PROD") =...