usa algo como esto:
Código vb:
Ver originalPrivate Sub ACEPTAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ACEPTAR.Click
Dim usuario As String
Dim contraseña As String
Dim perfil As String
Dim aceptado As Boolean
If aceptado = False Then
For each row as DataGridViewRow in DataGridView1.SelectedRows
usuario =row.Cells.Item(0).Value.ToString
contraseña = row.Cells.Item(1).Value.ToString
perfil = row.Cells.Item(2).Value.ToString
objllamariniciosesion.REGISTRO_USUARIO(usuario, contraseña, perfil, aceptado)
End For
MsgBox(" Los datos han sido insertados")
Else
MsgBox("Los Datos No Han Sido Insertados ")
End If
End Sub
aunque no veo donde cambia la variable 'aceptado'