ZOUZOU

rs.Open "Select Sum(sum1) As sum1 From tabel1 Where sum1 <= ' # & Text1.Text ' And sum1 >= ' # & Text1.Text # ' , db, adOpenStatic, adLockReadOnly

Private Sub Form_Load() If CN.State = adStateOpen Then CN.Close CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\db.mdb" & ";" rs.Open "Select DISTINCT * from Table1 ", CN, adOpenKeyset, adLockOptimistic Do While Not rs.EOF Combo1.AddItem…

Private Sub CommandButton1_Click() Dim SPI CreateObject("Sapi.SpVoice").Speak (Range("G6")) End Sub Sapi.SpVoice.xls

Private Sub Command1_Click() DataReport1.Orientation = rptOrientLandscape DataReport1.Show End Sub VB6 Service pack6 http://www.mediafire.com/download/k9df9j5j1hnec54/Vs6sp6.exe

جزاك الله خيرا