Thread: Little Help here.

DAmn, maybe its late but i'm having a bit of trouble figureing this out.


I'm actually using frodo's XM satellite .dll and service. There is data that is sent to an event which is sent at different intervals (from the xm device) It's constantly sending data to update new music and new artist. My problem is that the even fires before the code finishes. I know there's a simple resolution here but like I said its late!

Code:

 Private Sub XM_Control_ChannelData(ByVal Number As Integer, ByVal Station As String, ByVal Artist As String, ByVal Title As String, ByVal Genre As String) Handles XM_Control.ChannelData

'Here's the sub in the class

Public Sub station_update(ByVal station_number As Integer, ByVal station_name As String, ByVal current_artist As String, ByVal current_title As String, ByVal available_genre As String)

        Dim newdata As New Threading.Thread(AddressOf update_db_arrayA)

        XM_station_number = station_number
        XM_station_name = station_name
        XM_current_artist = current_artist
        XM_current_title = current_title
        XM_available_genre = available_genre

        newdata.Start()






    End Sub


'Here's the sub the thread is addressed to: 


Private Sub update_db_arrayA()
        Dim i As Integer
        Dim buf_station_number As String
        Dim station_updated As Boolean



        '*
        '* Load what we got in the DB into ram
        '*
        System.Windows.Forms.Application.DoEvents()
        If XM_Loaded = False Then
            InitDataBase("sql", "SELECT [File],[File Name],[Genre] FROM MEDIA WHERE Media.[Device]='xm'")
            total_stations = main_recordset.RecordCount
            System.Windows.Forms.Application.DoEvents()
            If Not total_stations = 0 Then
                For i = 0 To total_stations
                    'File = station number
                    'File name = station name
                    'genre = genre
                    xm_array(0, i) = Convert.ToString(main_recordset(0).Value)
                    xm_array(1, i) = Convert.ToString(main_recordset(1).Value)
                    xm_array(4, i) = Convert.ToString(main_recordset(2).Value)
                    main_recordset.MoveNext()
                Next
            End If
            Kill_mainConnection()
            XM_Loaded = False


        End If

        i = 0
        If Not total_stations = 0 Then
            For i = 0 To total_stations
                buf_station_number = xm_array(0, i)
                If buf_station_number = XM_station_number Then
                    xm_array(0, i) = XM_station_number
                    xm_array(1, i) = XM_station_name
                    xm_array(2, i) = XM_current_artist
                    xm_array(3, i) = XM_current_title
                    xm_array(4, i) = XM_available_genre
                    i = total_stations
                    station_updated = True
                End If
            Next
        Else
            XM_station_name = XM_station_name.Replace("'", "")
            InitDataBase("sql", "INSERT INTO MEDIA ([File],[File Name],[Genre],[Device]) VALUES ('" & XM_station_number & "','" & XM_station_name & "','" & XM_available_genre & "','xm')")
            Kill_mainConnection()

        End If

        System.Windows.Forms.Application.DoEvents()
    End Sub