SELECT *
FROM FinalConfirm
WHERE (((FinalConfirm.RefNo) Like '*' & [forms]![F_FConf]![cboRefNo] & '*'));

比如我在cboRefNo控件中输入了B10101-0003，就把数据库中B10101、B10101-0001、B10101-0002都找出来
我这个语句为什么实现不了？是哪里出了问题！！！

应该是在cboRefNo控件中输入B10101能查找出你要查找出的结果的
试试看

strSQL = "SELECT * FROM FinalConfirm WHERE RefNo Like '*" & getOrgRefNo(Forms![F_FConf]![cboRefNo]) & "*'and refno <> '" & Forms![F_FConf]![cboRefNo] & "'"
Function getOrgRefNo(str As String) As String
    Dim i As Integer
    i = InStr(1, str, "-")
    If i > 0 Then
        getOrgRefNo = Left(str, i - 1)
    Else
        getOrgRefNo = str
    End If
End Function
我改成这样就实现了