いつもお世話になっております。


テキストボックスに表示された｢yyyy年mm月dd日(aaa)｣形式の日付を、
SQLサーバ側のテーブルにDATE型形式｢yyyy-mm-dd｣で保存したいのですが、
どのように変換すればよいでしょうか？
今現在、下記のコードを試したところ、『型が一致しません』のエラーが返ってきます。

Private Sub Form_Load()



'フォームロード時、text1に日付を表示 

     text1.Text = Format(Date, "yyyy年mm月dd日(aaa)")



End Sub

Private Sub Save_Click()



～中略～



'サーバ上のテストテーブル｢days｣フィールドに｢yyyy年mm月dd日(aaa)｣をDate型｢yyyy-mm-dd｣で保存 

  

  rs.AddNew                         '新規レコード追加 

  rs!days = Format(CDate(Split(text1.Text, "(")(0)), "'YYYYMMDD'\;")



  rs.Update                         '更新(保存) 

  rs!days = Format(CDate(Split(text1.Text, "(")(0)), "'YYYYMMDD'\;")

    

～中略～

      

End Sub

ご教示よろしくお願いします。