Смена формата даты в vb 6.0

Формулировка задачи:

Работаю с бд на MYSQL используя VB 6.0
В общем я использую элемент Datapicker. При помощи него я передаю выбранную дату в текстовое поле, а уже из текстового поля
дата записывется в бд.
В принципе вроде как настроил отображемый формат даты в Datapicker (yyyy-mm-dd) , но переданная дата в тексовом поле всеравно отображается в стандартном формате (dd.mm.yyyy)
Проблема в том что в формат даты в MYSQL таков (yyyy-mm-dd). И при записи в бд даты формата (dd-mm-yyyy) дата записывается не правильно.К примеру записываю в Бд такую дату(17.05.2011), там же (в БД) этаже дата записывается в виде (20.05.2004 или 2008 или другой год)

[1]

Коректное отображение даты можно сделать выполнив настройку в панеле управления / язык и региональные стнадарты
После этой настройки вроде как всё нормально.
Так вот сам вопрос:

можно как-то программным спсобом сменить формат даты в VB 6.0.Тоесть что б в тектовом поле (при передачe даты с datapicker )дата отображлась в фомате (yyyy-mm-dd) ?

Тоесть не используя пункт [1]

Решение задачи: «Смена формата даты в vb 6.0»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> DTPicker1_CloseUp() <font color="#00AA00">' при закрытии DTPicker1 Дата передаётся в тектовое поле</font>
Text1.Text = Format$(DTPicker1.Value, <font color="teal">"yyyy-mm-dd"</font>)
<font color="blue">End</font> <font color="blue">Sub</font>
                        