[mrnooo2000]

تفضل أخى 
هذا الكود انا جربته و عمل معى بدون أخطاء 

كود :

           Using con As New OleDb.OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Jet OLEDB:Database Password=123321;Data Source=prep.mdb")
               Using cmd As New OleDb.OleDbCommand("UPDATE school SET arround2 = DCount(" & "'*'" & "," & "'student2'" & "," & """artak2='دون'""" & ")", con)
                   con.Open()
                   cmd.ExecuteNonQuery()
                   con.Close()
               End Using
           End Using
           MsgBox("table updated")

ان شاء الله يعمل معك