Running sql query directly from visual basic

DoCmd.RunSQL ("UPDATE tblMalzeme SET tblMalzeme.MalzemeCinsi =" & "'veri yok'" & ", tblMalzeme.Malzeme_Kategori =" & "'Diðer'" & ", tblMalzeme.Birim_Olcu =" & "'Ad'" & _

"WHERE (((tblMalzeme.MalzemeNo)=" & "900" & "));")