Default value in combobox

[kampao00]

please help me.. i keep searching anywhere but find no answer

i want to set the default value of a combobox in my edit account module based on the levelofaccesstextbox in my login module but my codes doesn't work

here's my code:

Private Sub editaccount_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If login.LevelofAccessTextBox.Text = "Student" Then
With Me.ComboBox1.Items
.Add("Student")
End With
End If
End Sub

[SyncMaster170]

my advice is to step through the code and figure out what your "LevelofAccessTextBox.Text" equals. Then come back here to update your issue.

[kampao00]

it should be equal to the level of access that is in the LevelofAccessTextBox.Text

[jhedonghae]

LevelofAccessTextBox.Text is equal to the level of access of the users who login

[Mitja Bonca]

You forgot to add: Is your comboBox databound?

[jhedonghae]

actually my problem is now solved thanks for everyone's help i used this code instead

Private Sub editaccount_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Dim x1 As String
x1 = login.LevelofAccessTextBox.Text
TextBox9.Text = x1
End Sub

I replace combobox with textbox

[poojavb]

Y use a variable??? u could have also done without a variable...just suggested...

TextBox9.Text = login.LevelofAccessTextBox.Text

[jhedonghae]

cool..tnx