Hojas de Excel

[mgd]

Hola que tal, tengo el siguiente ejemplo que funciona muy bien para cargar un archivo de excel en un datagridview. El unico problema o molestia que le veo es que hay que indicar la hoja, es decir o Sheet1 o Hoja1 o el nombre que sea.
Entonces quisiera saber si existe alguna manera de que por defecto tome la primer hoja se llame como se llame o que no haya que indicarle la hoja.

Gracias

Código VB NET:

Try
            Dim strconn As String
            strconn = "Provider=Microsoft.Jet.Oledb.4.0; data source= " + TextPathExcel.Text + ";Extended properties=""Excel 8.0;hdr=yes;imex=1"""
            Dim mconn As New OleDbConnection(strconn)
            Dim ad As New OleDbDataAdapter("Select * from [" & TextHoja.Text & "$]", mconn)
            mconn.Open()
            ad.Fill(dt)
            mconn.Close()
            Me.dgvExcel.DataSource = dt
        Catch ex As OleDbException
            MessageBox.Show(ex.Message)
        End Try