CheckBox1.Checked = False lvsettings.Enabled = True Dim tmp Dim check As String Dim i tmp = cboposition.Text.Split("/") check = "select accessid,forms as checkform from userform_tab where accessid='" & (tmp(0)) & "'" Dim rs_check As New Odbc.OdbcConnection("DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;User=root;PWD=sa;Database=kim_lyn_db") rs_check.Open() Dim cmd As New Odbc.OdbcCommand(check, rs_check) Dim reader As Odbc.OdbcDataReader reader = cmd.ExecuteReader() If reader.HasRows Then While reader.Read() End While End If For i = 0 To lvsettings.Items.Count - 1 If String.Compare("rs_check", "user_tab") = 0 Then ==> I think, here is the problem on my codes. Don't you think? Thanks. lvsettings.Items(i).Checked = True End If Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)