I can't get this code to work. The first time I ran it, it prompted me for my password and the macro completes each time, but it is not pulling the result into `sheet1`. What can I do here?

```
Sub Update()

    ThisWorkbook.Sheets("sheet1").Activate
    ThisWorkbook.Sheets("sheet1").Range("A1").Select
    Dim strStDt As String
    Dim strEnDt As String
    Dim strSQL As String

    strStDt = ThisWorkbook.Worksheets("lookup").Range("B6").Value
    strEnDt = ThisWorkbook.Worksheets("lookup").Range("B5").Value

    strSQL = ""
    strSQL = strSQL & "SELECT tkt.cntry_istto"
    strSQL = strSQL & ",tkt.pod"

    strSQL = strSQL & " FROM INTGY.GRUIP tkt"

    strSQL = strSQL & " Where tky.year_month_nbr between " & strStDt & " and " & strEnDt

    ThisWorkbook.Sheets("sheet1").Activate
    ThisWorkbook.Sheets("sheet1").Range("A1").Select

    With ActiveWorkbook.Connections(1).ODBCConnection

        .BackgroundQuery = True
        .Connection = "ODBC;DSN=#EDXX;UID=;;DATABASE=INTGY; AUTHENTICATION=;"
        .CommandText = strSQL
        .RefreshOnFileOpen = False
        .SavePassword = False
        .SourceConnectionFile = ""
        .SourceDataFile = ""
        .ServerCredentialsMethod = xlCredentialsMethodIntegrated
        .AlwaysUseConnectionFile = False
        .Refresh

    End With

End Sub

```