ถ้าต้องการให้เมื่อไม่มีการกรอกข้อมูลเเสดงข้อมูลทั้งหมดต้องเขียนอย่างไรครับ

Dim strSQL,objRec,strKeyword
strKeyword = Request.QueryString("txtKeyword")
	
if Request.QueryString("txtKeyword") <> "" Then
	strSQL = "SELECT * FROM customer WHERE (Email LIKE '%"& strKeyword &"%' or Name LIKE '%"& strKeyword &"%') "
else
	strSQL = "SELECT * FROM customer"


Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, Conn, 1,3