Visual Basic - DataGrid

Hola, tengo un DataGrid, de este mismo puedo eliminar, agregar y modificar cualquier registro...

Ok ahora cada vez que quiero agregar un registro nuevo, hay ciertos campos que son predeterminados y estas celdas deben aparecer con datos mientras las otras no... el boton esta asi:

Private Sub btnNuevo_Click()
dgd.ClearSelCols
dgd.AllowAddNew = True
dgd.SetFocus
dgd.Row = adoSistemas.Recordset.RecordCount + 1
dgd.Col = 2
dgd.Text = varIdOrgano
dgd.Col = 3
dgd.Text = 0
End Sub

Los coloca todo muy bien ahora el problema es que cuando no existe ningun dato en este DataGrid (que es factible en mi sistema) o sea que la tabla este vacia, cuando quiero colocar el primer registro me genera un error

Me dice que la fila actual no esta disponible

Para ello lo coloque asi:

Private Sub btnNuevo_Click()
dgd.ClearSelCols
dgd.AllowAddNew = True
dgd.SetFocus
If adoSistemas.Recordset.RecordCount <> 0 Then
dgd.Row = adoSistemas.Recordset.RecordCount + 1
dgd.Col = 2
dgd.Text = varIdOrgano
dgd.Col = 3
dgd.Text = 0
Else
dgd.Col = 2
dgd.Text = varIdOrgano
dgd.Col = 3
dgd.Text = 0
End If
End Sub

Pero no me ha funcionado, como resuelvo esto !? obvio dgd es mi DataGrid