Private Sub EseguiScriptDDL_dafile()
   On Error GoTo EsciDaQui
   
   m_MioDBAdo.BeginTransaction  ' E' gia stata istanziata la mia classe ADO precedentemente
   
   Dim fileVTRtmp As String
   fileVTRtmp = App.Path & "\" & "DDL_ACCESS.sql"
   Dim RigaLetta As String
   If Dir(fileVTRtmp) > "" Then
      Open fileVTRtmp For Input As #1
      Do While Not EOF(1)
         Line Input #1, RigaLetta
         If Mid(RigaLetta, 1, 2) = "--" Then
            '
            'e' un commento, ignoriamo la riga
            '
         Else
            m_MioDBAdo.UpdateTable (RigaLetta) '> qui ci sta quello che dici tu! m_Connessione.Execute(CommandText) 
         End If
      Loop

 '    ... il resto te lo risparmio!