複数のコンボボックスを処理するには？ (ID:101937)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 vb6.0初心者です。 いつも拝見しております。 ただいま、フォーム上には３つのコンボボックス「cmb_1」「cmb_2」「cmb_3」 1つのボタン「cmd_save」があるフォームを作成しており、 各コンボボックスで値を選択した後、保存ボタンをクリックすると サーバへ保存されるシステムを作成中です。 今現在、コンボボックスで値を選択した後、保存ボタンを押すと MySQLサーバへ値が保存されるところまではできたのですが、 ３つのコンボボックスすべてに値を入れないと、エラーが返ってきます。 つまり、ひとつ、ふたつのコンボボックスのみの値の選択ができません。 コードは以下のとおりになります。 Private Sub cmd_save_Click() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordset Dim strTBL As Variant strTBL = "test" 'テーブル名 'Mysqlへ接続 cn.Open "Driver={MySQL ODBC 3.51 Driver};SERVER = testserv;DATABASE=testdb;UID=aaaa;PWD=1234;" 'テーブルを開く rs.Open strTBL, cn, adOpenForwardOnly, adLockOptimistic, adCmdTable rs.AddNew '新規レコードを追加 rs!job1 = cmb_job1.Text '「ジョブ1」をセット rs!job2 = cmb_job2.Text '「ジョブ2」をセット rs!job3 = cmb_job2.Text '「ジョブ3」をセット rs.Update '更新(保存) rs!job1 = cmb_job1.Text '「ジョブ1」をセット rs!job2 = cmb_job2.Text '「ジョブ2」をセット rs!job3 = cmb_job2.Text '「ジョブ3」をセット cn.Close Set cn = Nothing Set rs = Nothing MsgBox "保存完了", vbOKOnly, "保存" End Sub なぜ注意されているのかは検討できましたが、なにぶん初心者なので どのように追加コーディングをしていいのかわかりません。 3つのコンボボックス中、１つ、または２つのコンボボックスの 選択のみでもサーバへ保存させるにはどのようにすればよいでしょうか？ わかりにくい質問ですみませんが、 ご教示のほど、よろしくお願いいたします。