ErrorHandler все еще показывает ошибку

Question

Когда я печатаю текст1, но это неправильно, ошибка отображается, но команда 2 включена. и когда я ввожу правильное имя моей базы данных. ошибка все еще отображается, и команда 2 снова включена. Я не знаю, что происходит.

Private Sub Command1_Click() 

    conAddStudent.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID= 123 ;Initial Catalog=" & Text1.Text & " ;Data Source=COM1\SQLEXPRESS;password= 123" 

     On Error GoTo err 
    command2.Enabled = True 
err: 
    MsgBox "none" 

    Exit Sub 

End Sub 

Answer 1

Вам нужно переместить Exit Sub перед ярлыке ошибки, так что выходит перед срабатыванием ошибки на хорошем ходу.

Private Sub Command1_Click() 

    conAddStudent.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID= 123 ;Initial Catalog=" & Text1.Text & " ;Data Source=COM1\SQLEXPRESS;password= 123" 

    If Text2.Text = "Valid Name" Then 
     Text2.Enabled = True 
    Else 
     MsgBox "none" 
    End If 

End Sub