Настройка авторизации

[Suza]

Помогите в решении одного вопроса. Дело в том, что у меня есть одна программа на VB, которая связывается с базой данных Oracle. Мне необходимо настроить авторизацию, чтобы при открытии данная программа запрашивала бы имя пользователя и его пароль (имя базы данных должно быть прописано). Я создала форму, в которую добавила 3 TextBox-а для ввода имени пользователя, пароля и имени базы данных и 2 кнопки "OK" и "Cancel". И написала следующий код для кнопки "OK":

Dim usr, pwd, constr As String
Private Sub Command1_Click()
usr = Text1.Text
pwd = Text2.Text
DataEnvironment1.Connection1.Open constr, usr, pwd
constr = "Provider=MSDAORA.1;User ID=" + usr + ";Password=" + pwd + "; Data Source="--Имя базы данных--"
DataEnvironment1.Connection1.ConnectionString = constr
DataEnvironment1.Connection1.Close
End Sub

При выполнении программа не выдает никакой ошибки.

[GSerg]

Странно как-то... сначала открывается, потом присваивается...