SQL statement

  • Below is the code I am using. Can anyone tell me what I am doing wrong? I can get it to execute.

    Sub Get_DAta()
    Dim sSQL As String
    Dim cn As Object
    Dim rs As Object
    Dim strFile As String
    Dim strCon As String
    sSQL = "SELECT [PQRS Data].[Care Program], [PQRS Data].[Admit Dt], [PQRS Data].[Visit ID], [PQRS Data].Value " & _
    "[PQRS Data].Problems, [PQRS Data].[Discontinue Dt] FROM [PQRS Data]; "

    DoCmd.RunSQL sSQL
    End Sub