vb.net 从txt中提取数据，显示在数据中

txt文件：
界面上数据库表格：
还望大家多帮忙，用oleDB.access。

 Imports System.IO

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ofd As New OpenFileDialog
        If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim query = File.ReadAllLines(ofd.FileName) _
                .Where(Function(x) System.Text.RegularExpressions.Regex.IsMatch(x, "^\d{1,2}\s+\d{1,2}\s+\d{4}\s+")) _
                .Select(Function(x) x.Split(" ".ToCharArray(), StringSplitOptions.RemoveEmptyEntries))
            For Each x In query
                DataGridView1.Rows.Add(x)
            Next
        End If
    End Sub
End Class

传一个你的txt文件到网盘（百度、163都可以），我帮你写

在界面上放一个DataGridView，一个Button，给DataGridView添加3列。双击按钮，编写给你的代码，即可。