Behöver hjälp med att importera saker ur ett excel-ark genom vb men det ska läggas i en sql databas

Så här gör jag:
Dim xlWorkBook As Excel.Workbook
Dim xlSheet As Excel.Sheets
Dim vsheet As Variant
Dim strFileName as string'XLS-filen

Set xlWorkBook = GetObject(strFilename)
Set xlSheet = xlWorkBook.Sheets
Set vsheet = xlSheet("Blad1")

Text1=vsheet.Cells(1, 1)'Text1 får värdet i cell A1

'Kom ihåg att du måste sätta en referens till excel