problem in understanding query

I am puzzled too that from what it is selecting from. I am working on some other guy's project who left the company. Now this is called on page load. it's a very long function . here is a small part of it
here fn is the financial year

Private Sub sbBindReport(ByVal eid As String, ByVal fn As String)
On Error Resume Next
Dim ds As New ds_GPFReport()
'' ''
Dim frm_x As String = "01-Apr-" + fn.Substring(0, 4)
Dim frm_y As String = "31-Mar-" + fn.Substring(5, 4)

'' ''Blank Main Datatable
Dim x As String = "Select 0.0 gpf_Contribution, 0.0 Advance_return, 0.0 Total, 0.0 Advance_return_amt, 0.0 progressive, 0 month_num where 1=2"
Dim da As New SqlDataAdapter(x, ConfigurationManager.ConnectionStrings("PIMSConnectionString").ConnectionString)
da.Fill(ds, "gpf")
'' ''Copy of main
Dim dt_copyOfMain As New DataTable()
dt_copyOfMain = Dal.GettDS(x).Tables(0)

'' ''GPF Details
x = "Select GPF_monthly_cont, month(GPF_monthly_cont_start_dt) month_num ,GPF_monthly_cont_start_dt,GPF_monthly_cont_end_dt "
x += " from details_gpf_gis"
x += " where empid=" + eid + " and GPF_monthly_cont_start_dt between '" + frm_x + "' and '" + frm_y + "'"
x += " order by month_num"

Dim dt_gpfDets As New DataTable
dt_gpfDets = Dal.GettDS(x).Tables(0)

here is Dal.GettDS(string x)

Public Overloads Shared Function GettDS(ByVal str As String) As Data.DataSet
Dim conn As New SqlConnection(conMain)
Dim cmd As New SqlCommand
Dim ds As New Data.DataSet
cmd.CommandText = str
cmd.Connection = conn
conn.Open()
cmd.CommandType = Data.CommandType.Text
Dim da As New SqlDataAdapter
da.SelectCommand = cmd
da.Fill(ds, "table1")
cmd.Dispose()
conn.Close()
conn.Dispose()
Return ds
End Function