Non è ke il campo ke vuoi stampare xcaso è null?
Cmq prova a rakkiudere il codice ke hai scritto in un try...end try e vedi ke errore t da

codice:
Try
   Dim cn As New OleDbConnection(stringa_connessione) 
   cn.Open() 
   Dim da As New OleDbDataAdapter("select * from Nome_Tabella", cn) 
   Dim ds As New DataSet() 
   da.Fill(ds) 
   Dim stringa_campo As String 
   stringa_campo = ds.Tables(Nome_Tabella).Rows(0).Item(Nome_Campo) 
Catch Excep as Exception
   MsgBox(Excep.Message)
End Try
In questo modo dovrebbe dirti con un + pò d precisione ke tipo di errore è