Public Con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; " +
            " Data Source=E:\CD_MY_new\DATA\My_Pension.mdb") 
	Public DT As New Data.DataTable 
Dim sqlCommand As New OleDbCommand("", Con)
        sqlCommand.Parameters.Clear()

        sqlCommand.Parameters.Add("@PensNum", SqlDbType.NVarChar, 10)
        sqlCommand.Parameters.Add("@LastName", SqlDbType.NVarChar, 20)
        sqlCommand.Parameters.Add("@FirstName", SqlDbType.NVarChar, 15)
        sqlCommand.Parameters.Add("@patronymic", SqlDbType.NVarChar, 25)
        ' а заодно и
    sqlCommand.CommandText = "INSERT INTO [Pensioner] VALUES(@PensNum, @LastName," &
                "@FirstName, @patronymic)"
       
        For Each row As DataRow In DT.Rows
            Dim sPensNum As String = row("NumPensCertificate").ToString()
            Dim sLastName As String = row("LastName").ToString()
            Dim sFirstName As String = row("FirstName").ToString()
            Dim sPatronymic As String = row("patronymic").ToString()

            sqlCommand.Parameters("@PensNum").Value = sPensNum
            sqlCommand.Parameters("@LastName").Value = sLastName
            sqlCommand.Parameters("@FirstName").Value = sFirstName
            sqlCommand.Parameters("@patronymic").Value = sPatronymic

            DT.Clear() ' Очищаем таблицу DT 
            Con.Open()
            sqlCommand.CommandText = "INSERT INTO [Pensioner] VALUES(@PensNum, @LastName, @FirstName, @patronymic)"
            sqlCommand.ExecuteNonQuery() ' Не совпадает число значений запроса и число результирующих полей.
            DA = New OleDb.OleDbDataAdapter(sqlCommand) 'Через адаптер получаем результаты запроса
            Me.DataGridView1.DataSource = DT ' Привязываем Грид к источнику данных
            Con.Close() ' Закрываем соединение.
        Next

For Each row As DataRow In DT.Rows
            Dim sPensNum As String = row("NumPensCertificate").ToString()
            '- Dim sPensNum As String = row("NumPensCertificate").ToString("2000") 

'- Dim sPensNum As String = row("NumPensCertificate").Equals("2000")

   '- Dim sPensNum As String = row("NumPensCertificate").Equals(2000)

            '+- Dim sPensNum As String = row("2000").ToString()