title: query in visual basic 6
body: <p>I have data like this</p>
  
  <pre><code>TrNo | LAR | Model   | Transport
  
  001    S001  P-123     30000    --&gt; this one for new field jasa
  001    S001  Service   15000    --&gt; this one for new field transport
  002    S002  ABC-34    30000
  003    S003  SA567     30000
  003    S003  Service   15000
  </code></pre>
  
  <p>And I want this table become</p>
  
  <pre><code>TrNo   | LAR  | Model |  Jasa   | Transport
  
  001      S001   P-123   30000     15000
  002      S002   ABC-34  30000       -
  003      S003   SA567   30000     15000
  </code></pre>
  
  <p>Please help me...</p>
  
  <p>And I used code like this</p>
  
  <blockquote>
    <p>strSql1 = SELECT DISCTINCT TrNo, LAR, Model Transport from Tbl_Claim WHERE Model like '" &amp; service &amp;"'</p>
  </blockquote>
  
  <p>And </p>
  
  <blockquote>
    <p>strSql2 = SELECT DISTINCT TrNo, LAR, Model, Transport, strSql1.Transport from Tbl_Claim LEFT JOIN strSql1 ON Tbl_Claim.TrNo = strSql1.TrNo WHERE Tbl_Claim.Model Not like '" &amp; service &amp; "'</p>
  </blockquote>