Problemer med datoformat i mit program

Hej jeg har et problem med at få mit program til at lave min til og fra dato om fra dk til us det har virket men nu får jeg en fejl der siger Expected: end of statement i de 4 første linier og den 4 sidste linie af neden stående text er der nogen der kan forklarer hvad der er gået galt siden det ikke virker mere.

Dim StartDatoDk As String = txtTillønseddel.Text
Dim SlutDatoDk As String = txtFralønseddel.Text
Dim StartDatoUs As String = DateFormatDk2Us(StartDatoDk)
Dim SlutDatoUs As String = DateFormatDk2Us(SlutDatoDk)
Dim Indkørt As Integer
Dim sumindkørt As Integer

denIndkørt.rscomIndkørt.Close
denIndkørt.rscomIndkørt.Open "SELECT sum(indkørt) FROM indkørt WHERE #" & StartDatoUs & "#<=dato AND dato<=#" & SlutDatoUs & "# AND førernr=' & txtFørernrlønseddel.Text'"
If denIndkørt.rscomIndkørt.Fields("sumindkørt") > 0 Then
Indkørt = sumindkørt
Else
Indkørt = sumindkørt
End If

Dim oExcelApp As Object
    Dim NyTekst As String
    Set oExcelApp = CreateObject("excel.Application")
    oExcelApp.Workbooks.Open (App.Path + "\Skabeloner\Lønseddelfuldtid1.xls")
    NyTekst = "Lønseddel"
    oExcelApp.Visible = True
    oExcelApp.range("AC23").Value = Indkørt
    oExcelApp.range("G11").Value = txtFørernrlønseddel.Text
    oExcelApp.range("N3").Value = txtFralønseddel.Text
    oExcelApp.range("S3").Value = txtTillønseddel.Text
   
    'oExcelApp = Nothing
End Sub

Function DateFormatDk2Us(ByVal DateDk As String)
    Dim DateParts() As String = Split(DateDk, "-")
    DateFormatDk2Us = DateParts(1) & "-" & DateParts(0) & "-" & DateParts(2)
End Function