[WAEL ABED]

PHP كود :

Private Sub Command1_Click()
If RS.State = 1 Then RS.Close
RS.Open "select * from Ph_Number", DB, adOpenStatic, adLockPessimistic
Do While Not RS.EOF
Text1.Text = Text1.Text & RS!Number & ","
RS.MoveNext
Loop

End Sub