devi impostare l'option strict a off e allora puoi fare:

Dim newAdapter As System.Data.OleDb.OleDbDataAdapter = Adapter()