meraba arkadaslar

Dim komut As New OleDbCommand()
        Dim baglanti As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=excel-word\" + TextBox12.Text + ".xlsm; Extended Properties='Excel 12.0 xml;HDR=YES'")
        baglanti.Open()
        komut.Connection = baglanti

yukarıdaki dosya açma kodunu aşağıdaki dosya açma yolu gibi istiyorum. yardım eder misiniz?

oExcel = CreateObject("Excel.Application")
        oExcel.Visible = True
        oBooks = oExcel.Workbooks
        oBook = oBooks.Open("C:\Documents and Settings\Administrator\Desktop\medibim proje\Backup\WindowsApplication2\bin\Debug\excel-word\" + TextBox12.Text + ".xlsm")