.Caption = .Caption & rs!開始時間 & " " & rs!略名 & vbCrLf
を下記に変更してください。
.Caption = .Caption & Format(rs!開始時間,"hh:nn") & " " & rs!略名 & vbCrLf
通報 ...