I am using SQL Server 7 and MS Aceess 2000 FE. I have a stored procedure that gets executed if it is seleced in Case Select statement. The store procedure returns more than one record. I need to display this recordset in my form but only one record displayed and it is the last record of the recordset. In debugged I found the pointer on the form didn't move to the next record so the next record of the recordset is being saved in it.

Your help is greatly appreciated.

Here is my code-
Function check_sqlserver(cust_num As String, apple_part_num As String, cust_part_num As String)
Dim check_partnum As New ADODB.Command
Dim rs_check_partnum As New ADODB.Recordset

check_sqlserver = 0

With check_partnum
.ActiveConnection = CurrentProject.Connection
.CommandText = "spCount_apple_partnum_exists"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("ret_val", adInteger, adParamReturnValue)
.Parameters.Append .CreateParameter("@cust_num", adChar, adParamInput, cust_num_length, cust_num)
.Parameters.Append .CreateParameter("@apple_part_num", adChar, adParamInput, apple_part_num_length, apple_part_num)
Set rs_check_partnum = .Execute
End With

Select Case rs_check_partnum.RecordCount
Case 0
check_sqlserver = check_sqlserver + 2
Case 1
cust_part_num = Trim(rs_check_partnum(0))
Case Else
DoCmd.OpenForm "display_multi_partnum"
Do While Not rs_check_partnum.EOF
frm!multi_partnum_list!partnum_id = rs_check_partnum(0)
'frm!multi_partnum_list!apple_catalog_num = rs_check_partnum(1)
'frm!multi_partnum_list!customer_part_num = rs_check_partnum(2)
'frm!multi_partnum_list!darwing_num = rs_check_partnum(3)
'frm!multi_partnum_list!part_name = rs_check_partnum(4)
' frm!multi_partnum_list!material_spec = rs_check_partnum(5)
' frm!multi_partnum_list!revision = rs_check_partnum(6)
' frm!multi_partnum_list!compound = rs_check_partnum(7)

End Select