Private Sub Command1_Click()
Dim oXLApp As Excel.Application

Dim strPath As String
strPath = "PathToWorksheet"
Set oXLApp = New Excel.Application
Set oxlBook = oXLApp.Workbooks.Open(strPath)
Set Worksheet = oXLApp.Worksheets(1)

oXLApp.Visible = True  'If you want to open the workbook

End Sub

SELECT [Farmers No] FROM [Farmers List] WHERE [Farmers No] LIKE "A*"

Dim sName as String
Dim sStringToView as String

sName = "Paulos"
sStringToView = "My Name is " & sName
MsgBox sStringToView

Private Sub Worksheet_Change(ByVal Target As Range)
'Delete or change the value in A1
'Then Delete the value in B3
Do While Sheet1.Cells(3, 2) <= 100
    If Sheet1.Cells(1, 1) = Blank Then
        Sheet1.Cells(1, 1) = 2
    End If
 
    Sheet1.Cells(3, 2) = Sheet1.Cells(1,