mijn sql query pakt geen arrays, iemand een idee hoe wel?

[Stefto]

ik wil de code een aantal waardes van een datagridview (dgv) naar een mysql server sturen zodat.
bij één query doet hij het goed, maar als ik een array gebruik krijg ik bij "ContactsCommand2.CommandText = queryArray(IndexRefresh)" een error, deze zegt dat er geen object verwijzing op het exemplaar van het object zit (zo zegt hij dat in mijn vs).

weet iemand nu dus het echte problem?

mvg Stefan

p.s: ik heb hem geprobeert in een richtextbox te planten maar dat vindt hij ook niet fijn

        Dim IndexRefresh As Int64
        Dim sqlQuery2 As String
        Dim queryArray(dgvRefreshDataSels.Rows.Item(1).Cells.Count) As String
        Dim ContactsCommand2 As New MySqlCommand
        Dim ContactsAdapter2 As New MySqlDataAdapter
        Dim connectorSels2 = New MySqlConnection()
        Dim usercount As New Int64
        usercount = dgvRefreshDataSels.Rows.Item(1).Cells.Count
        Try
            connectorSels2.ConnectionString = "uid=root;pwd=;database=tijdelijk;server=127.0.0.1;"
            connectorSels2.Open()
        Catch c_error As MySqlException
            MessageBox.Show("Error Refresh mysql:" & vbCrLf & c_error.Message)
        End Try
       ' dgvRefreshDataSels.SelectedCells(0, usercount)
        For IndexRefresh = 1 To dgvRefreshDataSels.Rows.Item(1).Cells.Count - 1 Step 1
            queryArray(IndexRefresh) = "INSERT INTO contactpersonen(`contactID`, `ContactPersoon`, `MiddleName`,`Achternaam`, `naamRelatie`) VALUES('" & dgvRefreshDataSels.Rows.Item(IndexRefresh).Cells.Item(1).Value.ToString.Replace(" ", "") & "', '" & dgvRefreshDataSels.Rows.Item(IndexRefresh).Cells.Item(2).Value.ToString.Replace(" ", "") & "', '" & _
            dgvRefreshDataSels.Rows.Item(IndexRefresh).Cells.Item(3).Value.ToString.Replace(" ", "") & "', '" & dgvRefreshDataSels.Rows.Item(IndexRefresh).Cells.Item(4).Value.ToString.Replace(" ", "") & "', '" & dgvRefreshDataSels.Rows.Item(IndexRefresh).Cells.Item(5).Value.ToString.Replace(" ", "") & "');".ToString()
        Next
        Try
            For index = 1 To dgvRefreshDataSels.Rows.Item(1).Cells.Count - 1 Step 1
                ContactsCommand2.Connection = connectorSels2
                ContactsCommand2.CommandText = queryArray(IndexRefresh) 'sqlQuery2
                ContactsCommand2.ExecuteReader()
            Next


        Catch myerror As MySqlException
            MessageBox.Show("Er is en probleem: " & vbCrLf & myerror.Message)
        End Try

        connectorSels2.Close()
        connectorSels2.Dispose()