Imports Microsoft.Office.InteropImports
Imports Microsoft.Office.Core.MsoTriState
Imports Microsoft.Office.Interop.PowerPoint
Imports Microsoft.Office.Interop
Imports System.Data.OleDbModule
Imports System.Data.OleDb

Module Module1
    Sub Main()
        Dim myApp = New PowerPoint.Application()
        myApp.Visible = msoTrue

        Dim MyPresentation = myApp.Presentations.Open("C:\Users\owner\Desktop\Trials.pptx", msoTrue, msoTrue, True)
        ' get the first slide
        Dim MyFirstSlide = MyPresentation.Slides(1)
        Dim sqlQueries As New ArrayList
        Dim sqlres As String

        Try

            For i = 1 To MyFirstSlide.Shapes.Item(1).Table.Rows.Count

                Dim row = MyFirstSlide.Shapes.Item(1).Table.Rows.Item(i)
                'Get desired values from ppt table
                Dim firstColVal = row.Cells(2).Shape.TextFrame.TextRange.Text.Trim()
                Dim secondColVal = row.Cells(3).Shape.TextFrame.TextRange.Text.Trim()
                'Build the sql update command for the db
                Console.WriteLine("This is val of secondColVal " + secondColVal)
                Console.WriteLine("This is val of firstColVal " + firstColVal)
                sqlQueries.Add("UPDATE SHIPS SET PROBLEMS = '" & secondColVal & "' WHERE NAME='" & firstColVal & "'")
            Next

            'MSAccess stuff
            'Open connection to db
            Dim connection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source= C:\database.accdb")
            connection.Open()
            'Perform each query one-by-one
            For Each query In sqlQueries
                Dim cmd = New OleDbCommand(query, connection)
                Dim icount = cmd.ExecuteNonQuery
            Next
            'Close connection 
            connection.Close()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        MyPresentation.Close()

    End Sub
End Module