vb6.0 help urgent

[kumar_ps]

Dim str As String
Set Con = New ADODB.Connectio n
Con.Open "Provider=Micro soft.Jet.OLEDB. 4.0; Data Source=C:\profi le.mdb;"
Set rs = New ADODB.Recordset
rs.Open "profile", Con, adOpenDynamic, adLockOptimisti c
rs.MoveFirst
While Not rs.EOF
str = rs.Fields(0)
cboUser.AddItem (str)
rs.MoveNext
Wend

If strUserType = "Admin" Then
cmdSave.Enabled = True
Cmddelete.Enabl ed = True
ElseIf strUserType = "Power" Then
cmdSave.Enabled = False
Cmddelete.Enabl ed = False
Else

'If strUserType = "" Then
cmdSave.Enabled = False
Cmddelete.Enabl ed = False
Combo1.Locked = True
Combo2.Locked = True
cboPageSize.Loc ked = True
CheckBox1.Locke d = True
CheckBox2.Locke d = True
Combo3.Locked = True
Combo4.Locked = True
Combo5.Locked = True
ScrollBar1.Enab led = False
ScrollBar2.Enab led = False
'End If
End If



it shows error

please help me

[sashi]

kumar.. kumar.. kumar..

where does the error occurs and what is the error message says? pls explain my fren.. take care

[sashi]

hi kumar,
try out the below modified code segment.. good luck my fren.. :)

If strUserType = Trim("Admin") Then
  cmdSave.Enabled = True
  Cmddelete.Enabled = True
ElseIf strUserType = Trim("Power") Then
  cmdSave.Enabled = False
  Cmddelete.Enabled = False
ElseIf strUserType = "" Then
  cmdSave.Enabled = False
  Cmddelete.Enabled = False
  Combo1.Locked = True
  Combo2.Locked = True
  cboPageSize.Locked = True
  CheckBox1.Locked = True
  CheckBox2.Locked = True
  Combo3.Locked = True
  Combo4.Locked = True
  Combo5.Locked = True
  ScrollBar1.Enabled = False
  ScrollBar2.Enabled = False
EndIf