"Приведение типа "|DataRowView" к типу "String" является недопустимым" - Visual Basic .NET - Ответ 912271

Public Sub ListBox1_SelectedItem(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                                                            Handles ListBox1.SelectedItem
 
        Dim DS As New ContractsDataSet
        Dim CN As New OleDb.OleDbConnection
 
        CN.ConnectionString = "Provider=Microsoft.ACE.OleDb.12.0; " &
                "Data Source=""E:\DISTR\VisualBasic2010\DataBases\Contracts.accdb"";User ID=Admin"
 
        CN.Open()
        If CN.State <> ConnectionState.Open Then MessageBox.Show("Not connected")
 
        REM получение значения выбранного элемента в ListBox
        Dim sur As String = ListBox1.SelectedItem
 
        Dim quer As String = "SELECT Payments.PaySum, Payments.PayDate FROM Students, " &
                        "Payments WHERE RefStudent = IDStudent And StudSurName = '" + sur + "'"
        Dim com As New OleDb.OleDbCommand(quer, CN)
        Dim read As OleDb.OleDbDataReader = com.ExecuteReader()
 
        REM вспомогательная переменная 
        Dim s1(2) As [String]
        REM предварительная очистка DataGridView
        DataGridView1.Rows.Clear()
 
        REM заполнение компонента DataGridView
        While read.Read()
            s1.SetValue(read(0).ToString(), 0)
            s1.SetValue(read(1).ToString(), 1)
        End While