Combobox

En un formulario para modificar datos de un cliente, al abrirlo muestro los
datos de un cliente determinado. En dicho formulario tengo un combobox para
provincias, que lo relleno así:

LlenaCombo(Me.cmbCodProvincia, strRutaDatos, "SELECT CodProvincia, Provincia
FROM Provincias", "Provincias")


Este es código que utilizo para rellenar el ComboBox:


Public Sub LlenaCombo(ByVal combo As ComboBox, ByVal RutaBD As String, ByVal
strSQL As String, ByVal Tabla As String)

Dim strConSQL As String

strConSQL = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & RutaBD

Dim ds As New DataSet

ds.Clear()

Dim dta As New OleDbDataAdapter(strSQL, strConSQL)

dta.Fill(ds, Tabla)

combo.DisplayMember = ds.Tables(Tabla).Columns.Item(1).ToString

combo.ValueMember = ds.Tables(Tabla).Columns.Item(0).ToString

combo.DataSource = ds.Tables(Tabla)

End Sub

En la tabla de clientes tengo CodProvincia y es numérico, al igual que en la
tabla de Provincias.

¿Qué debo de hacer para que al abrir el formulario, en el ComboBox me
aparezca la provincia correspondiente a la provincia del cliente en la tabla
de clientes?

Saludos y muchas gracias.

Jesús G.