Increible y extraño error con una cadena

[mariano_donati]

Disculpa Xknown, lo que pasa es que no hay mucho más que mostrar, osea esa es la parte relevante del código. SImplemente estoy tratando de concatenar una cadena, que por alguna rara razón no me agrega la comilla simple al final de esta, justo después de llamar a ClientInfo.Nickname. Es simplemente eso.
Ahora, intenté hacerlo con String.Format, y me sale lo mismo!. Es muy raro no?.
En la misma estructura guardo un objeto IPEndPoint, y cuando ClientInfo.IP.ToString, me sale de manera correcta, osea que tampoco el error viene por el lado de la estructura en sí, si no especificamente cuando llamo a ClientInfo.Nickname.

Te voy a hacer caso, y acá te pongo el fragmento del código:

Dim BufferForNickname() AsByte

BufferForNickname = NewByte(100) {}

ClientInfo.Socket = Listener.AcceptSocket()

CurrentThreadClient = ClientInfo.Socket.RemoteEndPoint()

ClientInfo.Ip = CurrentThreadClient

ClientInfo.Socket.Receive(BufferForNickname, BufferForNickname.Length, SocketFlags.None)

ClientInfo.Nickname = System.Text.Encoding.ASCII.GetString(BufferForNick name)

ClientInfo.Thread = New Thread(AddressOf Read)

SyncLockMe

Clients.Add(CurrentThreadClient.ToString(), ClientInfo)

Dim Conn AsNew OleDbConnection(ConnectionString)

Dim Cmd AsNew OleDbCommand()

Dim str AsString = str.Format("Update Usuarios Set UsuarioEstado = 1
Where UsuarioNickname = '{0}'", ClientInfo.Ip.ToString)

MsgBox(str)

Cmd.CommandText = str

Cmd.Connection = Conn

Conn.Open()

Try

Cmd.ExecuteNonQuery()

Catch Ex As OleDbException

MsgBox(Ex.Message)

EndTry

Conn.Close()

EndSyncLock

RaiseEvent ClientConnected(CurrentThreadClient, ClientInfo.Nickname)

ClientInfo.Thread.Start()

Muchas gracias xknown por interesarte en el tema.

Saludos!.