Article ID: 128408
Article Last Modified on 11/17/2000
CREATE PROCEDURE TEST AS Declare @Title varchar(50) declare @Title2 varchar(40) select @Title = 'this is a test' select @Title2 = 'this is a test2' select x=@Title, y=@Title2
Function SP_Value ()
Dim mydb As Database
Dim myq As QueryDef
Dim myrs As Recordset
Set mydb = CurrentDB()
Set myq = mydb.CreateQueryDef("")
myq.connect = "ODBC;"
myq.sql = "TEST"
Set myrs = myq.OpenRecordset()
MsgBox myrs!x
MsgBox myrs!y
End Function
Keywords: kbhowto kbusage KB128408