gamedesignteam

Public Function ReadExcelIntoDataset(ByVal file As String) As Data.DataSet
    'Create the DataSet that will hold the data from the sheet
    Dim dsExcel As New Data.DataSet
    'First name sure the file exists
    If Not IO.File.Exists(file) Then
        MessageBox.Show("The file provided doesn't exist. Please check the name and try again")
    Else
        Try
            'Declare the variables needed for the reading of the Excel file
            Dim sOleDbString As New String("SELECT * FROM [sheet1$]")
            'Create our connection to the Excel sheet
            Dim cnExcel As New Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; data source='" & _
            file & " '; " & "Extended Properties=Excel 11.0;")
            'Create our command object
            Dim cmdExcel As New Data.OleDb.OleDbDataAdapter(sOleDbString, cnExcel)
            'Now we try to fill the DataSet with the data from the Excel file
            Try
                'Fill was successful
                cmdExcel.Fill(dsExcel)
                'Catch any errors that have occurred
            Catch ex As Exception 'Fill failed
                MessageBox.Show(ex.Message)
                dsExcel = Nothing
                'Finally close the connection
            Finally
                cnExcel.Close()
            End Try
            'Catch any errors that may have occurred
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            dsExcel = Nothing
        End Try
        Return dsExcel
    End If
End Function

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
    (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) _
    As Integer

    '''