Private Sub Province()
Dim sqlProvince As String
sqlProvince = "SELECT PROVINCEID,PROVINCENAME FROM PROVINCE "
Comm = New OracleCommand(sqlProvince, Conn)
Dr = Comm.ExecuteReader()
DtProvince = New DataTable
DtProvince.Load(Dr)
With cboProvince
.DataSource = DtProvince
.DataTextField = "PROVINCENAME"
.DataValueField = "PROVINCEID"
.DataBind()
End With
End Sub