Hola Mary,
Un poco tarde pero para alguien le valdrá...
Yo ahora mismo lo hago así:
Código:
Select Case Replace(dsClientes.Tables("Clientes").Columns(txtCamposConsulta.SelectedItem).DataType.ToString(), "System.","")
Case "Char", "String"
'codigo
Case "DateTime"
'codigo
End Select
Espero que le sirva a alguien...
Saludos