Problem med string / integer ved db select

Hej

Hvordan er det lige man kan gøre nedenstående så det virker. Det skal siges at koden virker fint når jeg henter alle mine string felter fra db'en. Men nu er det sådan at jeg også gerne vil have min id med:

newListItem.Value = rdr.GetString(0)
- men det kan man ikke - og man må heller ikke skrive
newListItem.Value = rdr.GetInteger(0)


- og det kan jeg ikke fordi min strSQL er dimmensioneret som en streng..:
  Dim strSQL As String = "SELECT id, strTitle, strHtml FROM tblPageContentDynamic;"

- hvad gør jeg før at det virker ?? - jeg får en datatype mitchmash fejl når jeg prøver at hente nummeriske værdier..








If Not Page.IsPostBack Then
            Dim strConn As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("../db/db.mdb") & ";"
            Dim objConn As New OleDbConnection(strConn)
            Dim strSQL As String = "SELECT id, strTitle, strHtml FROM tblPageContentDynamic;"
            Dim objCmd As New OleDbCommand(strSQL, objConn)
            objConn.Open()
            Dim rdr As System.Data.OleDb.OleDbDataReader = objCmd.ExecuteReader()

            While rdr.Read()
                Dim newListItem As New ListItem()
                newListItem.Text = rdr.GetString(1)
                newListItem.Value = rdr.GetString(0)
                dropdownlist1.Items.Add(newListItem)
            End While
            objConn.Close()
        End If
    End Sub