listas dependientes con visual.net

Tengo un problema al tratar de llenar la lista de
provincias dependiendo del pais seleccionado, no me
convierte al tipo correcto de datos el
cbopais.selecteditem que es el que contendria el id_pais,
al menos eso creo. Si alguien sabe como hacer
correctamente esto se lo agradeceria.

Adjunto el codigo:
Sub llenar_pais()
'Traigo
Dim sql As String = "select * from ecomm_paises"
Dim da_pais As OdbcDataAdapter = New
OdbcDataAdapter(sql, cn)
Dim tblPais As New DataSet
Try
da_pais.Fill(tblPais, "Paises")
cboPais.DataSource = tblPais.Tables("Paises")
cboPais.DisplayMember = "pais"
cboPais.ValueMember = "id_pais"

Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Sub llenar_provincia()
Dim sql2 As String = "select * from
ecomm_provincias where id_pais=" + CType
(cboPais.SelectedItem, String)
Dim da_provincia As OdbcDataAdapter = New
OdbcDataAdapter(sql2, cn)
Dim tblprovincia As New DataSet
Try
da_provincia.Fill(tblprovincia, "provincias")
cboProvincia.DataSource = tblprovincia.Tables
("provincias")
cboProvincia.DisplayMember = "provincia"
cboProvincia.ValueMember = "id_provincia"
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub cboPais_SelectedIndexChanged(ByVal sender
As Object, ByVal e As System.EventArgs) Handles
cboPais.SelectedIndexChanged
llenar_provincia()
End Sub

Saludos,

Walter Arce