Run Time Error ’13’ help !!!

Everytime I delete a record from my DB using the following code i get this ‘type mismatch ‘ error. I can`t seem to get it to work error free.

command1_click()
dim rs as adodb.recordset
rs.delete
rs.requery
loadvalues
‘my connection is already declared in the gen decl
When i debug it goes to the loadvalues procedure’s first textbox. When I move the cursor over the highlighted text box there seems to be empty data.
How can i fix this?
Thanks in advance..