tipo cursor conexion sql y vb

Hola
Tengo una aplicacion vb que guarda datos contra sql server con ado, por
ahora lo hago asi:

Set cnn = New ADODB.Connection
cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;Data
Source=server;Initial catalog=gestion;User ID=gestion;Password=gestion"
Set rsLineas = New ADODB.Recordset
With rsLineas
.ActiveConnection = cnn
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.CursorLocation = adUseServer
.Open "SELECT * FROM lineas_ticket", , , , adCmdText
End With
For cuenta = 0 To frmTickets.grid.Rows - 1
rsLineas.AddNew
rsLineas!serie = varNumeroCaja
rsLineas!numero = varNumeroUltimoTicket
rsLineas!cantidad = Val(frmTickets.grid.TextMatrix(cuenta, 0))
rsLineas!concepto = frmTickets.grid.TextMatrix(cuenta, 1)
rsLineas!precio_linea > Val(Replace(frmTickets.grid.TextMatrix(cuenta, 2), ",", "."))
rsLineas!total_linea > Val(Replace(frmTickets.grid.TextMatrix(cuenta, 3), ",", "."))
rsLineas.Update
Next
rsLineas.Close
Set rsLineas = Nothing

Mi pregunta es si es la mejor forma de añadir registros con sql server y
si
es el mejor tipo de cursor.

Gracias