"ADO Recordset" desconectado

A seguir, vamos demonstrar uma sacada genial do Felipe Gerço: Trabalhando com um "ADO Command" desconectado no VB6 (Semelhentemente ao que fazemos no Delphi com um "dataset").

Dim rsZN As New ADODB.Recordset

Private Sub SetupCommandDesconectado()
    On Error Resume Next
    rsZN.Close 'Se ele não estiver aberto vair ocorer uma exceção
    
    rsZN.LockType = adLockBatchOptimistic
    rsZN.CursorLocation = adUseClient
    rsZN.CursorType = adOpenStatic
    
    rsZN.Fields.Append "DescricaoZn", adVarChar, 200
    rsZN.Fields.Append "ValorZn", adDouble
    
    rsZN.Open
    
End Sub

Private Sub Command4_Click()
   rsZN.AddNew Array("DescricaoZn", "ValorZn"), Array(Text1.Text, Text2.Text)
   
End Sub