VB.NET: Convertire da System.Type a SqlDbType

Realizzando un progettino che richiedeva un uso ‘creativo’ dei DataSet (ne scriverò in futuro), mi son trovato nella situazione di dover convertire i tipi di dati contenuti appunto in un Dataset (che appartengono alla classe System.Type) nei relativi tipi contenuti nell’enum SqlDbType (contenuto nella classe System.Data).

Ho realizzato quindi una breve funzione che svolgesse tale compito:

Private Function SysType2DBType(ByVal SysType As System.Type) As SqlDbType
   Dim param1 As SqlClient.SqlParameter
   Dim typeconv1 As System.ComponentModel.TypeConverter
   param1 = New SqlClient.SqlParameter()
   typeconv1= System.ComponentModel.TypeDescriptor.GetConverter(param1.DbType)
   If tc.CanConvertFrom(SysType) Then
       param1.DbType = typeconv1.ConvertFrom(SysType.Name)
   End If
   Return param1.SqlDbType
End Function