ลองปรับใช้ดูนะครับ

Sub GetRandomHN()
Dim rst As Object, strHN As String, I As Integer, X As Integer
Set rst = CreateObject("ADODB.Recordset")
rst.Open "Select HN From Sheet1", CurrentProject.Connection
If Not rst.EOF Then
For X = 1 To 50
rst.MoveFirst
I = Int((49 - 0 + 1) * Rnd + 0)
rst.Move I
strHN = strHN & "'" & rst(0) & "',"
Next
' Remove extra , out.
If Len(strHN) <> 0 Then
strHN = Left(strHN, Len(strHN) - 1)
End If
Debug.Print strHN
rst.Close
rst.Open "select * from sheet1 where hn in (" & strHN & ")", CurrentProject.Connection, 1, 3
Debug.Print rst.RecordCount
Do While Not rst.EOF
' Do something here.
rst.MoveNext
Loop
End If
rst.Close
Set rst = Nothing
End Sub

รบกวนข้อดูตัวอย่างหน่อยครับ