Private Sub cmdRunSQL_Click()
Dim i
Dim SQL

For i = 1 To 5
SQL = "select * from table where code1 = " & i
Next

Adodc1.RecordSource = SQL
Adodc1.Refresh
If DataGrid1.DataSource Is Nothing Then
Set DataGrid1.DataSource = Adodc1
End If
End Sub

ผลที่ได้ จะออกมาแต่ข้อมูลที่ code1 = 5 ส่วน code1 = 1 ถึง 4 ไม่ออกครับ ไม่ทราบว่าขาดคำสั่งอะไร

ขอบคุณมากครับ

จากคุณ รบกวนด้วยครับ ( Ticket ID : 253582)