Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.9.. aaa bbb "
        Dim cn As New OleDb.OleDbConnection(cnStr)
        cn.Open()

 
        Dim f As String = System.Environment.GetEnvironmentVariable( _
          "USERPROFILE") + "\ntuser.dat"
        Dim sr As New IO.StreamReader(f)