Update Problem

[lotus18]

Hello World!

I am trying to convert my project in vb6.0 to vb.net '05 ^ ^. I can add and delete records but I have a problem in updating records.

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        If AddCourse = True Then
            SQLString = "Insert Into Courses ([CourseID],[Title],[Description]) Values ('" & _
            txtCourseID.Text & "','" & txtTitle.Text & "','" & txtDescription.Text & "')"
            Call DoTransactions(SQLString)
            MessageBox.Show("New course has been sucessfully added.", _
            "Course Added", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            SQLString = "Update Courses Set Title='" & txtTitle.Text & "', Description='" & _
            txtDescription.Text & "' Where CourseID='" & txtCourseID.Text & "'"
            Call DoTransactions(SQLString)
            MessageBox.Show("New course has been sucessfully added.", _
            "Course Updated", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub
 
Private Sub DoTransactions(ByVal StringCommand As String)
        'Set Database Connection
        Call SetConnection()
        cmdCourses = New OleDbCommand(StringCommand, dbConnection)
        cmdCourses.CommandType = CommandType.Text
        rsCourses = cmdCourses.ExecuteReader
        'Close Connection
        rsCourses.Close()
        Call CloseConnection()
        'Refresh List
        Call frmCourses.LoadCourses()
        Me.Close()
End Sub

Rey Sean