Database

Public Function UpdateRecord2(ByVal strUpdate As String, params() As String) As Boolean
        Dim RecordsUpdated As Integer = 0
        Dim cnStr As String = "Provider=" & Provider & "; Data source= " & _Database

        Using cn As New OleDb.OleDbConnection(cnStr)
            Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter
            Dim cmd As OleDb.OleDbCommand
            cmd = New OleDb.OleDbCommand(strUpdate, cn)
            For i As Integer = 0 To params.Length - 1
                If params(i) = Nothing Then params(i) = ""
                cmd.Parameters.AddWithValue("?", params(i))
            Next
            da.InsertCommand = cmd
            Try
                cn.Open()
                RecordsUpdated = da.InsertCommand.ExecuteNonQuery()
                cn.Close()
            Catch ex As Exception
                frmMain.Err.DataMethod = "UpdateRecord"
                frmMain.Err.DataErr = ex.Message
                Return False
            Finally
                cn.Close()
            End Try
        End Using

        If RecordsUpdated = 1 Then
            Return True
        Else
            frmMain.Err.DataMethod = "UpdateRecord"
            frmMain.Err.DataErr = "No Records updated"
            Return False
        End If

    End Function