vb.net的数据库导入问题，在线等

我想用vb.net导入文件，用datagridview表示出来。这个文件包括邮政编码，地名，村名，街道名
谁能告诉我，从没用vb.net导入过数据库，第一次，拜托大家帮帮忙！ --------------------编程问答-------------------- Imports System.Data.OleDb       '引用其他数据库
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then '选择excel表
            Dim name As String
            name = Me.OpenFileDialog1.FileName
            Me.TextBox1.Text = name '显示路径
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.TextBox1.Text.ToString.Trim() & ";Extended Properties=Excel 5.0"
            '定义连接字符串
            Dim conn As OleDbConnection
            '定义连接命令
            conn = New OleDbConnection(str)
            conn.Open()
            '打开连接 
            Dim str1 As String = "连接数据库字符串"
            Dim comm As New SqlConnection(str1)
            Dim moy As New SqlCommand
            moy = New SqlCommand("insert tb_book select * from OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;IMEX=1;HDR=YES;DATABASE=E:\\Book.xls',[Sheet1$])", comm)
            comm.Open()
            'Dim myy As SqlDataReader
            'myy =
            moy.ExecuteNonQuery()
            comm.Close()
            conn.Close()
            '关闭连接
        Catch ex As Exception '排除异常
            MsgBox(ex.Message)
        End Try
    End Sub
完成后刷新你的datagridview --------------------编程问答-------------------- 我试试看
谢谢 --------------------编程问答-------------------- 出现了那么多波浪线，我却不知怎么改

补充：.NET技术 ,  VB.NET