Public Function SelJobGrid()
 
  Dim str As String
 
  Set MainForm.MainDataGrid.DataSource = Nothing
  If rs.State = adStateOpen Then rs.Close
  If MainForm.MainTabStrip.SelectedItem.Key <> lastSelectedItem Then
    lastSelectedItem = MainForm.MainTabStrip.SelectedItem.Key
    lastSortAsc = True
    lastSortCol = 0
  End If
 
  str = "SELECT * FROM job"
 
  'MsgBox str
  str = str & " ORDER BY " & lastSortCol + 1
  If MainForm.lastSortAsc = True Then
    str = str & " ASC"
  Else
    str = str & " DESC"
  End If
  rs.Open str, Db.glConn, adOpenKeyset
  Set MainForm.MainDataGrid.DataSource = rs
  MsgBox rs.GetString
 
End Function