مشکل در index کورسور

[amirsafari 116]

سلام دوستان من لانگ کلیک یکی از لیبل هامو تنظیم کردم واسه علاقه مندی . اینم کدم . ولی یه اروری دارم که میگه index کورسور -1 .

کارم گیره لطفا راهنمایی کنید ممنون.

Sub Label1_LongClick
	Dim l As Label
	l=Sender
	cursor2=sql1.ExecQuery("select fav from t1 where file='"& l &"'")
	cursor2.Position=cursor2.Position+1
	If cursor2.GetInt("fav")==0 Then
	sql1.ExecNonQuery("update t1 set fav='"& 1 &"' where file='"& l.Tag &"'")
	Else If cursor2.GetInt("fav")==1 Then
	sql1.ExecNonQuery("update t1 set fav='"& 0 &"' where file='"& l.Tag &"'")
	End If
	
	
End Sub

[shahab.es 5,429]

cursor2.position = 0

سلام

اینو امتحان کن

[amirsafari 116]

cursor2.position = 0

سلام

اینو امتحان کن

مشکل توی این خط بود 

cursor2=sql1.ExecQuery("select fav from t1 where file='"& l &"'")

tag  رو ننوشته بودم