una funzione che accetta:



- un parametro che definiche la tabella

- un array che definisce le colonne

- un array che definisce i valori

e quindi avrò una cosa del genere


Public Function CreateString(ByVal varTbl As String, ByVal varColonne As Variant, Optional ByVal varValori As Variant) As String

Dim stringa As String
Dim posUguale As Integer
Dim i As Integer
posUguale = 0


Select Case m_SType

Case SType.Selezione

stringa = "SELECT "
For i = 0 To UBound(varColonne)

posUguale = InStr(varColonne(i), "=")

If i - 1 = 0 Then stringa = stringa & varColonne(i) & " FROM " & varTbl: Exit For

If posUguale > 0 Then
stringa = stringa & Left(varColonne(i), posUguale - 1) & ", "
Else
stringa = stringa & varColonne(i) & ", "
End If

Next i


ovviamente è da continuare