窗体按钮

大家好,又遇到了一个问题,请大家给予帮助和指教:

Private Sub Form_Load()

Dim i As Integer
Dim PrintName As String
For i = 0 To Printers.Count - 1
PrintName = PrintName & ";" & Printers(i).DeviceName
Next
If PrintName <> "" Then
    PrintName = Right(PrintName, Len(PrintName) - 1)
    Me![strPrint].RowSource = PrintName
    Me!strPrint = like "*HT-Star AR-2470"  '这句错在哪里,该如何修改???'
  Else
MsgBox "没有找到打印机！"
   End If

end sub