Dropdownlist não insere no BD (SQL)

[Pijama]

Bom Dia, pessoal, estou com um problema aqui, e vou postar aqui e ver se vocês me ajudam, pois já estou com dor de cabeça e não consigo resolver a questão..., qualquer ajuda é bem vinda, obrigado

Sub Page_Load(Source as Object, E as EventArgs)

if not Page.IsPostBack then
   'declara as variáveis usadas no código
   Dim strSQL As string
   Dim strConn As String
   Dim Conn As OledbConnection
   Dim da As oledbDataAdapter
   Dim ds As DataSet

  'define a string com o comando SQL e a string de conexão usando um provedor OLEDB
  strSQL="Select * from Cidades ORDER by cidade asc"
  strConn ="Provider=SQLOLEDB.1;User ID=sa;PWD=12345;Initial Catalog=joaobarro;Data Source='(local)'"

  'Abre a conexão com a fonte de dados
  Conn = New OLEDBConnection(strConn)
  Conn.Open()

  try
    'cria o objeto DataAdapter
    da = New OleDbDataAdapter(strSQL, Conn)
    'Cria e preenche o DataSet
    ds = New DataSet()
    da.Fill(ds,"Cidades")
    'Define o preenchimento do controle DropDownList
    Cidades.DataTextField = "Cidade"
    Cidades.DataValueField = "Cidade"
    Cidades.DataSource = ds.Tables("Cidades").DefaultView
    Cidades.DataBind()
    Cidades.items.Insert(0,"Selecione um produto")
    Cidades.SelectedIndex = 0
    


  Finally
    Conn.Close()
  end try
end if

End Sub

[kuroi]

ue, mas você ta dando um select e não um insert. ai não vai inserir mesmo, não entendi o seu problema.