salah satu alternatifnya... Set rsGrid = New ADODB.Recordset Dim G$ G = "select SPBH.NoSPB,SPBH.TglSPB,Supplier.NamaSupplier,SPBH.TglKirim,SPBH.Pajak,SPBH.Discount,SPBH.Keterangan from SPBH,Supplier where SPBH.KodeSupplier=Supplier.KodeSupplier and SPBH.Tahun=" & Val(txtTahun.Text) & " and Supplier.NamaSupplier like '%" & txtSupplier.Text & "%' order by SPBH.NoSPB desc"
rsGrid.Open G, conPurch, adOpenDynamic, adLockOptimistic, adCmdText Set MSHFlexGrid1.DataSource = rsGrid __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com
