Microsoft Access 掲示板

hatenaさん、お世話になります。
ハイライトされなくて困っております。

下記がtryExecuteになります。
よろしくお願いします。

Functionさんさん tryExecute(sqlList As Collection) As String
  On Error GoTo ErrorHandler
  
  Dim daoDb As DAO.Database
  Set daoDb = CurrentDb
  
  Dim strSQL As Variant
  For Each strSQL In sqlList
    daoDb.Execute strSQL
  Next strSQL
  
  tryExecute = ""
  
  GoTo Finally
  
ErrorHandler:
  tryExecute = "Error #: " & Err.Number & vbNewLine & vbNewLine & Err.Description
  
Finally:
  If Not daoDb Is Nothing Then
    daoDb.Close
    Set daoDb = Nothing
  End If

End Function