Function GetTableName( penName )
    ' TODO: Insert all tables from database.
    Select Case True
    Case (InStr(penName, "_2SB_") > 0)  GetTableName = "Analogicos_2SS"
    Case (InStr(penName, "_3SB_") > 0)  GetTableName = "Analogicos_3SS"
    Case (InStr(penName, "_4PA_") > 0)  GetTableName = "Analogicos_4PA"
    Case Else                           GetTableName = ""
    End Select
End Function