What is bad in this

[alejandro]

What i m doing wrong in this code i want to load a form with a recordset but
something is wrong

Private Sub Form_Open(Cancel As Integer)

Dim rsf As Recordset
Dim ssql As String
ssql = "select * from product where code=1 "
rsf.Open
Set rsf = ssql
Form_individual.Recordset = rsf
rsf.Close

Thanks
ALejandro

 

[Rick Brandt]

What i m doing wrong in this code i want to load a form with a recordset but
something is wrong

Private Sub Form_Open(Cancel As Integer)

Dim rsf As Recordset
Dim ssql As String
ssql = "select * from product where code=1 "
rsf.Open
Set rsf = ssql
Form_individual.Recordset = rsf
rsf.Close

Just apply the SQL string to the Form's RecordSource property (not
Recordset).

 

[caimito]

I am not an expert, but you are opening rsf before you
assign anything to the variable, and I think you need a
semicolon at the end of the SQL statement, inside the
quotation marks.