Tip polja iz baze

Code:

u vb6 ovo funkionise normalno

RsStaro je recordset tabela u staroj bazi
RsNovo je recordset tabela u novoj bazi
sImePolja je ime polja u tabeli
nBrojac je redni broj kolone u tabeli

                  For nBrojac = 0 To RsStaro.Fields.Count - 1
                  
                     sImePolja = UCase(RsStaro.Fields(nBrojac).Name)
                     
                        Select Case RsNovo.Fields(sImePolja).Type 'ovaj deo me zanima
                     
                           Case adChar, adVarChar, adLongVarChar, adVarWChar, adWChar, adLongVarWChar
                        
                              'nesto se desi
                              
                           Case Else
                              
                              'nesto se desi
                              
                        End Select
                     
                     End If
                  
                  Next

kako bi ovo funkcionisalo u vb.net


                                For nBrojac = 0 To RsStaroDTab.Columns.Count - 1

                                    sImePolja = UCase(RsStaroDTab.Columns(CInt(nBrojac)).Caption)

                                        Select Case CType(RsNovoDTab.Rows(iNovo).Item(sImePolja), OleDb.OleDbType)'ovaj deo me zanima

                                            Case OleDb.OleDbType.Char, OleDb.OleDbType.VarChar, OleDb.OleDbType.LongVarChar, OleDb.OleDbType.VarWChar, OleDb.OleDbType.WChar, OleDb.OleDbType.LongVarWChar

                                                'nesto se desi

                                            Case Else

                                                'nesto se desi

                                        End Select

                                    End If

                                Next