table = DBUtils.ExecuteMemoryTable(sql1, "SELECT patnum FROM " & dbTable,Null,0)
For Each cols() As String In table
label1 = lvHave.SingleLineLayout.Label
label1.TextSize = 16
lvHave.AddSingleLine(cols(0))
CV1.Add(CreateListItem(cols(0),CV1.AsView.Width, 50dip), 50dip, cols(0))
Next