Private Sub CheckAutoManual() Dim objds As New DataSet objcmd.Connection = cnn objcmd.CommandText = "select tblname from table" objcmd.CommandType = CommandType.Text Dim objda As New SqlDataAdapter(objcmd) objda.Fill(objds) If objds.Tables(0).Rows(0).Item(0) = 0 Then Else Dim i As Integer For i = 0 To dgImport.Items.Count - 1 Dim temchk As New CheckBox temchk = dgImport.Items(i).FindControl("chkSelect") temchk.Enabled = False temchk = dgExport.Items(i).FindControl("chkSelect1") temchk.Enabled = False Next End If End Sub