Update records(vb 6)

rs.Open "Update tblSupplier set Supplier_Name='" & Sup_Name & "',Address='" & sAdd & "',Telephone='" & sTel & "'" & _
        "Where Supplier_ID='" & Sup_ID & "'", cn, 3, 3
        i_Disable.Disable_Txt Me
        Set rs = Nothing
        Call grd_Data_Loader
        MsgBox "Supplier with supplier ID " & Sup_ID & " has been updated.", vbInformation, "Inventory System"