Using an online translation tool ...
Dim rowsToDelete As List(Of Integer) = New List(Of Integer)
Imports (
Dim conn As SqlConnection = New SqlConnection("connString")
If (Not (checkBox) Is Nothing) Then
If (Convert.ToBoolean(checkBox.Value) = true) Then
cmd.CommandText = "DELETE FROM Stock WHERE ID = @myID"
cmd.Parameters.Add("@myID", SqlDbType.Int).Value = Convert.ToInt32(dataGridView1(1, row.Index).Value.ToString)
cmd.ExecuteNonQuery
rowsToDelete.Add(row.Index)
End If
End If
UnknownUnknownUnknown
For Each row As Integer In rowsToDelete
dataGridView1.Rows.RemoveAt(row)
Next