Transferring data from a Microsoft Excel file to an SQL Database

Imports System.Data.OleDb
Imports System.Data.SqlClient

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim OleDbConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                    "D:\Documents and Settings\den1tro\My Documents\Excel\RTLS.xls" & _
                                    ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""

        Dim MyOleDbConnection As New OleDbConnection(OleDbConStr)

        Dim SqlConStr As String = "server=mtgenwks0024;database=tsg;integrated security=true"

        Dim SqlConn As New SqlConnection(SqlConStr)

        Dim OleDbComStr As String = "Select [Task Category],[Task Title] from [Sheet1$]"

        Dim MyOleDbCommand As New OleDbCommand(OleDbComStr, MyOleDbConnection)

        MyOleDbConnection.Open()

        Dim MyOleDbDataReader As OleDbDataReader = MyOleDbCommand.ExecuteReader()

        While MyOleDbDataReader.Read

            Dim SqlComStr As String = "insert into rtl (rtls,interval) values ('" & _
                                     MyOleDbDataReader.Item("Task Title") & "','" & _
                                     MyOleDbDataReader.Item("Task Category") & "')"

            Dim MySqlCommand As New SqlCommand(SqlComStr, SqlConn)

            SqlConn.Open()

            MySqlCommand.ExecuteNonQuery()

            SqlConn.Close()

        End While

        MyOleDbConnection.Close()

        MsgBox("Done")

    End Sub