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