Modify the code in the Select Case structure to fit your needs.


Option Explicit

Private Sub cmdCancel_Click()
 Unload Me
End Sub

Private Sub cmdClear_Click()
  Dim ctl As Control
  ' Clear the form
  For Each ctl In Me.Controls
  If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then
   ctl.Value = ""
  ElseIf TypeName(ctl) = "CheckBox" Then
   ctl.Value = False
  End If
  Next ctl
End Sub

Private Sub cmdOK_Click()
    Dim c00 As String, J As Integer, I As Integer, a() As String
    If cbohandler.Value = "" Or txtClaim.Value = "" Or txtrecs.Value = "" Or _
      cboCHO.Value = "" Or lstissue.Value = "" Or txtcommentry.Value = "" Then
        MsgBox "Please enter all fields before continuing!", vbCritical
        Exit Sub
    End If
    
    For J = 0 To lstissue.ListCount - 1
      If lstissue.Selected(J) Then c00 = c00 & ";" & lstissue.List(J)
      a() = Split(c00, ";")
    Next
     
    With New Recordset
      .Open "SELECT * FROM [chotable]", "Provider=Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source=S:\HO Shared\P1 HX & B'ham joint folder\2014\cho.mdb;"
      .AddNew
      .Fields("Handler Name") = cbohandler.Value
      .Fields("Claim Number") = txtClaim.Value
      .Fields("CHO") = cboCHO.Value
      
      If UBound(a) <> -1 Then
        '.Fields("Issue(s)") = Mid(c00, 2)
        For I = 0 To UBound(a)
          Select Case a(I)
            Case "A"
              .Fields("IssueA") = a(I)
            Case "B"
              .Fields("IssueB") = a(I)
            Case Else
          End Select
        Next I
      End If
      
      .Fields("Commentry") = txtcommentry.Value
      .Fields("Recommendations") = txtrecs.Value
      .Update
      .Close
    End With
    
    Unload Me
End Sub