هل من ناصر ینصرنی؟؟؟!! خطای java.lang.RuntimeException: Object should first be initialized (Cursor). موقع کامپایل

خطای
java.lang.RuntimeException: Object should first be initialized (Cursor)
دلیلش چی هست؟؟ لطفا راه حلش رو ارائه بفرمائید. تشکر
من میخوام فایل های صوتی برنامم رو با کلیک روی هر کدام از عناوین مخصوص به خودشون پخش کنم. همه راه حل ها برای اجرای یک فایل صوتی هست ولی بنده چندین فایل صوتی دارم که باید در لیست ویو، به ترتیب اجرا بشند.
این صفحه ای که قراره صداها اجرا بشند. ببینید اشکال کار کجاست لطفا 🙂

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: false
#End Region
Sub Process_Globals
Dim MediaPlayer As SimpleExoPlayer
Dim timer2 As Timer
End Sub
Sub Globals
Dim Button1 As Button
Dim Button2 As Button
Dim SeekBar As SeekBar
Dim barVolume As SeekBar
Dim lbltime As Label
Dim ListView1 As ListView
Dim fara As Farakhani
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout2")
If FirstTime Then
timer2.Initialize("timer2",500)
timer2.Enabled=True
End If
Main.cursor=Main.sql.ExecQuery("SELECT * FROM Fehrest")
For i=0 To Main.cursor.RowCount-1
Main.cursor.Position=i
ListView1.AddSingleLine(Main.cursor.GetString("Soorehha_1"))
Next
Main.cursor.Close
fara.initialize("data.db","Fehrest",True)
MediaPlayer.Initialize("MediaPlayer")
End Sub
Sub Activity_Resume
MediaPlayer.Play
End Sub
Sub Activity_Pause (UserClosed As Boolean)
MediaPlayer.Pause
End Sub
SeekBar.Value=MediaPlayer.Position/MediaPlayer.Duration*100
lbltime.Text=ConvertToTimeFormat(MediaPlayer.Position)
End Sub
Sub ConvertToTimeFormat(ms As Int) As String
Dim seconds, minutes As Int
seconds = Round(ms/1000)
minutes = Floor(seconds/60)
seconds = seconds Mod 60
Return NumberFormat(minutes,1,0)&":"&NumberFormat(seconds,2,0)'ex: 3:05
End Sub
Sub barVolume_ValueChanged (value As Int, UserChanged As Boolean)
End Sub
Sub SeekBar_ValueChanged (value As Int, UserChanged As Boolean)
If UserChanged Then MediaPlayer.Position = value/100*MediaPlayer.Duration'the value was changed programmatically
timer2_Tick 'immediately update the progress label
End Sub
Sub Looping_CheckedChange(Checked As Boolean)
End Sub
Sub Button1_Click
Log("پخش انتخاب شد")
MediaPlayer.Play
timer2_Tick 'immediately update the progress label
End Sub
Sub Button2_Click
Log("توقف انتخاب شد")
MediaPlayer.Pause
End Sub
Sub ListView1_ItemClick (Position As Int, value As Object)
Log("position:"&Position&"-value:"&value)
Dim Soorehha As String
Dim Seda As String
Soorehha = fara.FarakhaniString("ID",Soorehha,"Soorehha_1")
Seda = fara.FarakhaniString("ID",Seda,"Seda_1")
MediaPlayer.CreateFileSource(File.DirAssets,Seda)
MediaPlayer.Play
End Sub