From subform to splitform

[webisti]

Hi



I am trying to figure out how to change this:
Private Sub Command3_Click()
Dim StrSQL As String
If (Eval("[Forms]![BE02_SOH]![Combo] Is Null")) Then
MsgBox "Please select value first", vbOKOnly, "No Selection"
ElseIf (Eval("[Forms]![BE02_SOH]![Combo] Is Not Null")) Then
StrSQL = "Select * from 013_SOH_BASE where"
StrSQL = StrSQL & " Priority=" & "Forms!BE02_SOH!Combo"
Me!SubForm.Form.RecordSource = StrSQL
End If
End Sub

Instead of using a form and a subform I am using a splitform.
How can I change it to make it work?

any help thanks

forgot to add the last piece of code:

Private Sub Command4_Click()
StrSQL = "Select * from 013_SOH_BASE"
Me!SubForm.Form.RecordSource = StrSQL
End Sub

[webisti]

IF i CHANGE THE ME.SUBFORM.VALUE IT GIVES ME AN ERROR CODE.
wHERE IS MY MISTAKE?