Usando esse código no botão de Inserir, dá esse erro: Operation is not allowed when the object is closed. O erro dá nessa linha: de.rsqryCadConcl.AddNew
[CODE]
Private Sub cmdIns_Click()
gOper = "I"
Inv
de.rsqryConsContr.Open
de.rsqryConsContr!ID_Concl = de.rsqryConsContr!ID_Concl + 1
de.rsqryConsContr.Update
de.rsqryCadConcl.AddNew
de.rsqryCadConcl!ID_Concl = de.rsqryConsContr!ID_Concl
de.rsqryConsContr.Close
txtConcl.SetFocus
End Sub
[/CODE]
Alguém sabe o q posso fazer pra resolver isso?
PS: estou usando VB6, DE (Data Environment) e SQL Server 7 (Servidor);
