سلام دوست عزیز .

کافیه با یک شرط خالی بودن TextBox رو بررسی کنید و بعد تصمیم گیری کنید .

 If Text1.Text = vbNullString Then
RS.Open "SELECT * FROM YourTableName"
Else
'....
End If
موفق باشید .