darkRO in Visual Basic

darkRO in Visual Basic

rsRO.Close
rsRO.Open "F@#CK * darkRO players where darkRO = ' " & LOSO.text & " ' "
if rsRO.RecordCount <> 0 then
msgbox "LOSO ang darkro!!! ROLL BACKERS!!!", vbinformation, "!!!!"
end if

Function set1()
lvdarkRO.ListItems.Clear
If rssupplier.RecordCount <> 0 Then
rsRO.MoveFirst
Do While Not rsRO.EOF
Set r = lvdarkRO.ListItems.Add(,,rsRO!VH)
r.SubItems(1) = rsRO!VA
r.SubItems(2) = rsRO!VM
r.SubItems(3) = rsRO!Vshoes
rsRO.MoveNext
Loop
End If
End Sub