按钮如何设置空格或回车启用？

如题，做了按钮查询，但每次要用鼠标点击，我想加入空格或回车也能替代鼠标点击按钮，求教！

代码如下：

Private Sub Command1_Click()
 Dim strSQL As String
      strSQL = "SELECT * FROM 合同 WHERE ID & 合同编号 & 项目名称 & 产品型号 Like '*" & Me.查询输入 & "*'"
    Me.合同_子窗体.Form.RecordSource = strSQL
    If DCount("*", "合同", "ID & 合同编号 & 项目名称 & 产品型号 Like '*" & Me.查询输入 & "*'") = 0 Then
        If MsgBox("没有您想查询的数据,是否取消本次查询？", vbQuestion + vbOKCancel) = vbOK Then
            Me.合同_子窗体.Form.RecordSource = "SELECT * FROM 合同"
        End If
    End If






End Sub