problema importazione tabella excel in visual studio 2008

pantera

Nuovo Utente
Salve a tutti, sono nuovo in questo ambiente di programmazione.

Devo importare un foglio excell in un database creato in visual studio.
Ho già creato la struttura e popolato tramite access, però vorrei creare qualcosa che lo si possa fare con visual studio 2008, sezione visual basic.

Poichè il nome del file cambia sempre, dovrei creare un form con una selezione del file e poi caricarlo nel database.

Se mi potete spiegare passo passo come fare ve ne sarei grato.
 

pantera

Nuovo Utente
Sono riuscito a creare qualche rigo di codice, ma mi da un errore:

Codice:
Dim xls, cn, rs

        cn = CreateObject("ADODB.Connection")
        cn.Open("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\database1.accdb")

        rs = CreateObject("ADODB.Recordset")
        rs.Open("output(1)")

        xls = CreateObject("Excel.Application")
        With xls.Workbooks.Open("c:\Sagest\output(1).xls")
            .Activate()
            With .Worksheets("output_1_")
                For i = 1 To .Usedrange.Rows.Count
                    rs.Addnew()
                    rs.Fields("N# contratto").Value = .Cells(i, 1)
                    rs.Fields("Cliente").Value = .Cells(i, 2)
                    rs.Fields("Tipo Cliente").Value = .Cells(i, 3)
                    rs.Fields("Tipologia Offerta").Value = .Cells(i, 4)
                    rs.Fields("Stato").Value = .Cells(i, 5)
                    rs.Fields("Tipo Offerta").Value = .Cells(i, 6)
                    rs.Fields("Codice Incaricato").Value = .Cells(i, 7)
                    rs.Fields("Creata il").Value = .Cells(i, 8)
                    rs.Fields("Creata da").Value = .Cells(i, 9)
                    rs.Fields("Data adesione").Value = .Cells(i, 10)
                    rs.Fields("Causale Ann#/Sosp").Value = .Cells(i, 11)
                    
                    rs.Update()
                Next
            End With
            .Close(False)
        End With
        xls.Quit()
        xls = Nothing

        rs.Close()
        rs = Nothing

        cn.Close()
        cn = Nothing

        MsgBox("Fatto!")
Arrivato alla riga rs.addNew() mi da errore

Chi mi può aiutare?