Visual Basic - no actualiza

Hola amigos :

Estoy tratando de realizar un mantenimiento con ADO a una BD en sql cuando doy clic en el boton nuevo me sale el siguiente error :
Error ‘3251’ en tiempo de ejecución: El Recordset actual no admite actualizaciones .Puede ser una Limitación del proveedor o del tipo de Bloqueo seleccionado

Aca esta mi codigo
Por favor ayuda

Declaraciones General

Dim cn As ADODB.Connection
Dim rsDep As ADODB.Recordset

Private Sub Form_Load()

Set cn = New ADODB.Connection
With cn
.ConnectionString = "DSN=DBGeneral"
.Open
End With
Set rsDep = New ADODB.Recordset
rsDep.ActiveConnection = cn
rsDep.CursorType = adOpenDynamic
rsDep.Open "select * from departamento"
datos

End Sub

Private Sub datos()

If rsDep.BOF Then Exit Sub
If rsDep.EOF Then Exit Sub
TxtCodigo.Text = rsDep.Fields("dep_num")
TxtDescrip.Text = rsDep.Fields("dep_descrip")
End Sub

Private Sub cmdNuevo_click()

rsDep.AddNew

End Sub

Private Sub cmdGrabar_click()

rsDep.UpdateBatch

End Sub

por favor ayuden

Hola:
Puede q tengas algun problema con el DSN q generaste debes revisarlo
y verifica q no esta como "solo lectura"
ahora si trabajas con sql server, no necesitas tener un dsn.

saludos...