Visual Basic.NET - error en cadena de consulta

me da error la consulta siguiente, no se como poner la variable vcodigo de tipo string para incluirla dentro de la cadena de consulta, si con comillas o sin ella, he probado de todas formas y me da error.

alguien me puede ayudar ??

Gracias

dim vcodigo as string

vcodigo = miDBdataset.Tables("cfac").Rows(x).Item("codigo")
cliente.Text = vcodigo
dbclidataset.Clear()
dbcliadapter = New OleDb.OleDbDataAdapter("select * from clientes where codigo='" + vcodigo , dbcli)

dbcliadapter.Fill(dbclidataset, "clientes")

después de añadir el vcodigo te falta añadir el cierre de la comilla para la consulta, los strings en sql tienen que ir de esta guisa {codigo = '00001'}

Ok, ya me funciona, que no encontraba la sintasis adecuada.

Gracias Zalo