Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As _
  GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim b As LinkButton = DirectCast(e.Row.Cells(15).FindControl( _
              "LinkButton1"), LinkButton)
            b.OnClientClick = "javascript:window.showModalDialog(" & _
            "'ersatzbeschaffung_detail.aspx?id=" + CStr(DataBinder.Eval( _
            e.Row.DataItem, "ID")) + "','','dialogwidth:450 px;dialogheight:505" & _
            "px')"
        End If
    End Sub