Ho la select case all'esterno della routine...
Dim ws_sqldbtype As Integer
Select Case ws_tipo
Case "varchar"
ws_sqldbtype = SqlDbType.VarChar
Case "money"
ws_sqldbtype = SqlDbType.Money
Case "smallmoney"
ws_sqldbtype = SqlDbType.SmallMoney
Case "int"
ws_sqldbtype = SqlDbType.Int
Case "bigint"
ws_sqldbtype = SqlDbType.BigInt
Case "smallint"
ws_sqldbtype = SqlDbType.SmallInt
Case "datetime"
ws_sqldbtype = SqlDbType.DateTime
Case "smalldatetime"
ws_sqldbtype = SqlDbType.SmallDateTime
Case "text"
ws_sqldbtype = SqlDbType.Text
End Select
poi passo ws_sqldbtype alla function che crea il parameter.
In questo modo la mia routine di controllo generalizzata esamina tutti i textbox che mi servono e crea l'istruzione SQL di aggiornamento, con tutti i parametri pronti.
Bruno60

Hai ragione,
la select case la faccio ma in un'altra parte di codice.
Forse potrei riscrivere il tutto per evitare la doppia conversione, ma sarebbe troppo complicato.
Grazie
Ciao
Bruno.