Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\CD_MY_new\DATA\My_Pension.mdb;")
        conn.Open()
        Dim cmd As New OleDbCommand()
        cmd.Connection = conn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "SELECT * INTO Pensioner_2 FROM Pensioner WHERE Pensioner.BirthDate=?"
	' Несоответствие типов данных в выражении условия отбора.
	' как применить, например, CDate(TextBox1.text) в качестве параметра?
        With cmd.Parameters
		' как в этом месте выбрать фамилию и имя из таблицы?
'  я временно поставил = ""
            .Add("@pLastName", OleDbType.VarChar).Value = ""
            .Add("@pFirstName", OleDbType.VarChar).Value = ""
        End With
        cmd.ExecuteNonQuery()
        conn.Close()