No me quedo claro donde tengo que cargar el values

Disculpa que te moleste otra ves, me enviaste el código para cargar unos combo box en una base... Esto:
Private Sub insertar_Click()
Dim Prov As String ' guardara el codigo de provincia
Dim Cli As String ' guardara el codigo de cliente
Dim sqlx As String ' tendra el string de insertar
Cli = Busca_Cod_CLi(Combo4.Text) ' buscamos el codigo de cliente
Prov = Busca_Cod_Prov(Combo1.Text) ' buscamos el codigo de prov
sqlx = "INSERT INTO CLIENTES-PROVINCIAS " ' montamos insert
sqlx = sqlx & " (cod_cli,cod_prov)"
sqlx = sqlx & "'" & Cli & "','" & Prov & "'"
con.Execute sqlx ' ejecutamos insert
End Sub
Me tira un error cuando le doy al botón de insertar, me dice
error en la sintaxis de la instrucción INSERT INTO, ¿Sabes qué puece ser?
Gracias