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

        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(1).Shape.TextFrame.TextRange.Text.Trim()
                Dim secondColVal = row.Cells(2).Shape.TextFrame.TextRange.Text.Trim()
                'Build the sql insert command for the db
                sqlQueries.Add("UPDATE SHIPS SET PROBLEMS = 'secondColVal' WHERE NAME='firstColVal'")

            Next

            ' close presentation                
            MyPresentation.Close()
            'MSAccess stuff
            'Open connection to db
            Dim connection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source= C:\database.mdb")
            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

    End Sub
End Module