what does it mean? It was working the past few days though
Code:
OpenCon
Set rs = New ADODB.Recordset
rs.Open "Select * from [tblsubject] Where [grade]like '" & frmregistration.cbstudlvl.Text & "'", con, adOpenStatic, adLockOptimistic 'error appears here
ListView1.ListItems.Clear
If rs.RecordCount <> 0 Then
For x = 1 To rs.RecordCount
frmregistration.ListView1.ListItems.Add , , rs![subjectcode]
frmregistration.ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , rs![subjectname]
frmregistration.ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , rs![yearlevel]
rs.MoveNext
Next x
End If
rs.Close
con.Close