Dim VarFormNo As Integer

VarFormNo = CInt(Trim(FormNo.Text))

Rst.Open "SELECT * FROM Programs WHERE FormNo = ' & VarFormNo & '"

این رو امتحان کن