Set LookupEdit Default Value

Dim r As Integer = LUEMerek.Properties.GetDataSourceRowIndex(Me.LUEMerek.Properties.Columns("Nama"), "Honda")
        LUEMerek.EditValue = Me.LUEMerek.Properties.GetDataSourceValue(LUEMerek.Properties.ValueMember, r)