Visual Basic

Private Sub cmdfirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdfirst.Click
       'Move to the First Record
       Try
           Me.BindingContext(DataSet11, "Property").Position = 0


       Catch  ex As OleDb.OleDbException
           MessageBox.Show("Canot Navigate, Because the is no Connection to the Server", "WARNING", MessageBoxButtons.OK, MessageBoxIcon.Information)
       End Try
   End Sub

Private Sub cmdprevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdprevious.Click

    ''' This will obviously point to the Previous record of the Dataset
    Try
        Me.BindingContext(DataSet11, "table").Position -= 1

    Catch ex  ex As OleDb.OleDbException
        MessageBox.Show("Canot Navigate, Because the is no Connection to the Server", "WARNING", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Try

End Sub

'''Display Next Record
''' This will obviously point to the Next record of the Dataset
Try
    Me.BindingContext(DataSet11, "property").Position += 1


Catch ex As OleDb.OleDbExceptionn
    MessageBox.Show(ex.Message)


End Try

'move to the last Record
        Try
            With Me.BindingContext(DataSet11, "property")
                .Position = .Count - 1
            End With
        Catch ex As OleDb.OleDbExceptionn
            MessageBox.Show(ex.message)

        End Try

SqlDataAdapter1.Update(DataSet11, "Property")

Me.BindingContext(DataSet11, "property").Position += 1

First: I want the value of the selected item in a combobox / listbox, how do I that. It is not with me.combobox.valuemember, but what is the correct code of it?

dim str as string<br />
dim id as string<br />
str=combobox1.selectedItem<br />
id=combobox1.selectedValue

Next: If I save all the values of the fields on a form, then I clean all the fields with: me.textbox.text = "", but how does I do that with a combobox / listbox?

Dim a As New System.Windows.Forms.Control<br />
For Each a In me.Controls<br />
      If TypeOf a Is TextBox Then<br />
        a.Text=""<br />
      elseif TypeOf a Is ComboBox then<br />
a.selectedIndex=-1<br />
elseif TypeOf a Is ListBox then<br />
a.selectedIndex=-1<br />
<br />
      End If<br />
            Next

<br />
elseif TypeOf a Is ComboBox then<br />
a.selectedIndex=-1<br />

Also the combobox is still filled with the value I have entered in the field, so the code of
elseif TypeOf a Is ComboBox then
a.selectedIndex=-1

doesn't work.