خطأ في كود الحذف

السلام عليكم

ارجوا منكم مساعدتي ..

تم ربط قاعدة البيانات اكسس 2003 ... ببرنامج الفيجوال بيسك ستوديو 2008

كود الحذف لا يعمل لدي

ويعطيني خطأ في هذا السطر

conn.open()

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Dim del As String = MsgBox("هل تريد بالتأكيد حذف الكلمة الحالية ؟", MsgBoxStyle.YesNo, "حذف الكلمة")
        If del = vbYes Then
            Dim saveinto As New OleDbCommand
            Dim dataAdapter1 As New OleDbDataAdapter(sqlstr, conn)
            saveinto.Connection = conn
            conn.Open()
            saveinto.CommandType = CommandType.Text
            saveinto.CommandText = "DELETE FROM wor123 WHERE w1='" & Trim(TextBox1.Text) & "'"

            saveinto.ExecuteNonQuery()
            dataset1.Clear()
            dataAdapter1.Fill(dataset1, "wor123")
            conn.Close()
            MsgBox("تم الحذف بنجاح")
            ChangePosition()
        End If

    End Sub

أين الخطأ ???