Koding Muncul Data dari Database ke ComboBox / Panggil Data dari ComboBox

Koding Muncul Data di ComboBox / Panggil Data dari ComboBox
----------------------------------------------------------------------------------

 Sub panggilcombo()
        cmd = New OleDbCommand("select nama from kasir", conn)
        dr = cmd.ExecuteReader
        Do While dr.Read
            If dr.HasRows Then
                ckasir.Items.Add(dr.Item("nama"))
            End If
        Loop
    End Sub