campo "null" se transforma em "1"

[eriva_br 7]

tenho um componente (dll) em VB6 que me retorna um "ADODB.RecordSet", desta forma estou criando o objeto com o createobject e chamando a função que retorna este ADO, depois transformo o ado para dataset e carrego o datagrid com o dataset... o problema é que quando no ado existem valores com "null" na grid aparece como "1" alguem tem alguma idéia de como acertar isso para que no dataset retorne em branco, ou null, ou ""....???? segue o código para transformar o ado em dataset: Public Function RetornaDts(ByVal ado As ADODB.Recordset) As DataSet RetornaDts = New DataSet Dim adapter As OleDbDataAdapter = New OleDbDataAdapter adapter.Fill(RetornaDts, ado, "ADODB.RecordSet") End Function

[eriva_br 7]

acheia rotina acima não apresenta nenhum problema, o problema era outro em outra função que estava tratando os dados nullos do ado...valew,abs