Line 156: strSQL = "Select ClinicNum, tClinicType.ClinicTypeName, tClinicType.pkClinicType,ClinicFacilityCity FROM tClinic INNER JOIN tClinicType ON tClinic.fkClinicType=tClinicType.pkClinicType WHERE pkClinic = " & intpkClinic
Line 157: dtblClinic = db_tools.sqlSelect_dtbl(strSQL)
Line 158: strClinicName = dtblClinic.Rows(0).Item("ClinicTypeName")
Line 159: strClinicNum = dtblClinic.Rows(0).Item("ClinicNum")
Line 160: strClinicCity = dtblClinic.Rows(0).Item("ClinicFacilityCity")
|