Assuming you have a Schema.ini file available for use you can use code like
this:
Public Sub FillTable(ByRef ds As DataSet, ByVal TableName As String, ByVal
Path As String)
Dim strConn, strSQL, strFileTitle, strFileFolder As String
strFileTitle = Path.GetFileName(Path )
strFileFolder = Path.GetDirectoryName(Path )
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConn &= "Data Source=" & strFileFolder & ";"
strConn &= "Extended Properties=Text"
strSQL = "SELECT * FROM [" & strFileTitle & "]"
Dim dt As DataTable
Dim da As OleDbDataAdapter
Dim cnn As New OleDbConnection(strConn)
Dim cmd As New OleDbCommand(strSQL, cnn)
Try
cmd.CommandType = CommandType.Text
cnn.Open()
da = New OleDbDataAdapter(cmd)
da.Fill(ds, TableName)
Finally
cnn.Close()
End Try
End Sub