最後の2匹の蛾のアクセスデータベーステーブルからデータ

Question

私はvb.netでビューをリストにアクセスデータベースからのデータの最後の2蛾を得るためにこのコードを持っているが、これは私にエラーを与える

を取得し、これは私のコードです：私はこれを行うことができますどのように

IErrorInfo.GetDescription failed with E_FAIL(0x80004005).

：

Public Sub showlistview() 
     Dim dt As New DataTable 
     Dim ds As New DataSet 
    ds.Tables.Add(dt) 
    Dim da As New OleDbDataAdapter("SELECT * FROM pay_pretalk _ 
            WHERE sdate > DATE_SUB(now(), INTERVAL 2 MONTH)", con) 
    da.Fill(dt) 
     Dim myrow As DataRow 
     For Each myrow In dt.Rows 
      ListView1.Items.Add(myrow.Item(2)) 
      ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(3)) 
      ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(4)) 
      ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(5)) 
     ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(6)) 
     ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(7)) 
     Next 
End Sub 

、これは誤りです。

Answer 1

  dim ds as new DataSet(); 
      dim adapter as new OleDataDataAdapter("SELECT * FROM pay_pretalk            

      WHERE sdate > DateAdd("m", -2, Date())", con); 
      adapter.Fill(ds); 
      dt = ds.Tables[0]; 

.....