title: VB6 syntax problem, "no current record" error
body: <p>I am writing an app in vb6 using sql server 2005. here is my current code.</p>
  
  <pre><code>Dim Sqlstring As String
  Dim rstCurrentTicket As Recordset
  
  Sqlstring = "Select SubmiterName, LastViewDate, Department, Description, Urgency, SubmitDate, ResolvedDate from TroubleTickets where Title ='" + Trim(TicketComboBox.Text) + "'"
  Set rstCurrentTicket = cnnSel.OpenRecordset(Sqlstring)
  
  
  NameText.Text = rstCurrentTicket!SubmiterName
  DeptText.Text = rstCurrentTicket!Department
  Me.DescriptionText = rstCurrentTicket!Description
  Me.UrgencyText = rstCurrentTicket!Urgency
  </code></pre>
  
  <p>when I run this code  i recieve an error code saying: </p>
  
  <p>"Run-Time error: '3021'"
  "no current record" </p>
  
  <p>and it highlights this line of code:</p>
  
  <pre><code>NameText.Text = rstCurrentTicket!SubmiterName
  </code></pre>
  
  <p>any suggestions of how to fix this?</p>